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AMSTRAD CPC664 

Sistema integrado ordenador/ disco 

Quienes somos ... 

El AMSTRAD CPC664 continua la tradition del sistema informatico CPC464. La 
gran acogida de que ha gozado este ordenador nos ha inducido a dar el siguiente paso 
16gico: combinar lo mejor del CPC464con la unidad de disco DD1, junto con muchas 
otras innovaciones. El sistema resultante, el CPC664, ofrece unas prestaciones y una 
riqueza de posibilidades que no tienen rival hoy por hoy en el mundo de los ordena- 
dores personales. 

El CPC664 esta apoyado por uno de los fabricantes de productos electronicos de gran 
consumo mas grandes del pais. Por otra parte, el club de usuarios AMSTRAD, con 
su revista mensual, se ha convertido ya en la principal y mas liable fuente de infor- 
mation y noticias. 

Disponibilidad de programas y 
compatibilidad . . . 

El CPC664 puede utilizar practicamente todos los programas escritos para el CPC464; 
esto significa que el usuario del CPC664 puede elegir, sin necesidad de espera alguna, 
entre los muchos programas publicados por AMSOFT y otras casas de software. 



^Por que con discos? 



Es indudable que el disco esta sustituyendo al cassette como medio de almacenamien- ' 
to de datos y programas, salvo quiza en el caso de los usuarios menos asiduos. No 
obstante, dado que la potencia y facilidad del uso del CPC464 ha convertido rapida- 
mente muchos de esos usuarios menos asiduos en entusiastas de la informatica, el 664 
sera el ordenador idoneo para ellos. 
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Gracias a Digital Research... 

La potencia del sistema operativo CP/M, de Digital Research, nunca antes ha estado 
disponible a precio tan asequible. Creemos que el futuro nos depara grandes noveda- 
des en programacion, ahora que disponemos de un medio cuya capacidad de memoria 
es de 160K por cada cara. Por otra parte, el Dr. LOGO, tambien de Digital Research, 
ha llegado a convertirse en el lenguaje educativo y docente de aceptacion mas univer- 
sal. Al combinar la inigualable facilidad de uso de los 'graficos de tortuga' con una 
gran capacidad de proceso de datos, Dr. LOGO ha demostrado ser la implementation 
mas completa de LOGO de las muchas existentes en el mercado. 

; Gracias a Amstrad! 

Tanto CP/M como Dr. LOGO se suministran con el sistema CPC664 sin costo 
adicional. 

^Mas novedades? 

Al desarrollar el CPC664, hemos aprovechado la oportunidad para refinar instruccio- 
nes y aiiadir otras que no estaban incluidas en el BASIC del CPC464 (por ejemplo, 
rellenado de zonas en la pantalla, lectura de caracteres de la pantalla, conmutacion 
del cursor, sincronizacion de imagen, etc.). Los programas que utilicen estas funciones 
no seran compatibles con el CPC464 pero, en cambio, los programas escritos para el 
CPC464 son utilizables en el CPC664 sin ninguna limitation. 
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CONSUMER ELECTRONICS PLC 

© Copyright 1985 AMSOFT, AMSTRAD Consumer Electronics pic 



El contenido de este manual y el producto en 61 descrito no pueden ser adaptados ni reproducidos, 
ni total ni parcialmente, salvo con el permiso escrito de AMSTRAD Consumer Electronics pic 
('Amstrad'). 

El producto descrito en este manual, asf como los disenados para ser utilizados con 61, estan sujetos 
a desarrollo y mejoras continuas. Toda la informaci6n t6cnica relativa al producto y su utilizaci6n 
(incluida la que figura en este manual) es suministrada por AMSTRAD de buena fe. Admitimos, 
no obstante, que en este manual puede haber errores u omisiones. El usuario puede obtener una 
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Rogamos tambien a los usuarios que rellenen y envien la tarjeta de registro de Digital Research. 
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AMSOFT agradecera el envio de comentarios y sugerencias relativos a este manual y 
al producto en el descrito. 

Toda la correspondencia se debe dirigir a 

AMSOFT 

Avda. del Mediterraneo, 9 

28007 Madrid 

Espafia 

Toda reparaci6n u operation de mantenimiento de este producto debe ser confiada a 
los distribuidores autorizados de AMSOFT. Ni AMSOFT ni AMSTRAD pueden 
aceptar ninguna responsabilidad derivada del dafio o perdida que se pueda ocasionar 
como resultado de reparaciones efectuadas por personal no autorizado. El objetivo de 
este manual no es sino servir de ayuda al usuario en la utilization del producto; por 
consiguiente, AMSTRAD y AMSOFT quedan eximidos de responsabilidad por el 
dafio o perdida a que pueda dar lugar la utilization de la information aqui publicada 
o la incorrecta utilization del producto. 

Dr LOGO y PC/ M son marcas registradas de Digital Research Inc. 

Z80 es marca registrada de Zilog Inc. 

IBM e IBM PC son marcas registradas de International Business Machines Inc. 

AMSDOS, CPC664 y CPC464 son marcas registradas de AMSTRAD Consumer Electronics pic. 

Primera edici6n: 1985 

Compilado por Ivor Spital 

Escrito por Roland Perry, Ivor Spital, William Poel, Cliff Lawson; 

con la colaboracion de Locomotive Software Ltd. 

Traducido del ingles por Emilio Benito 

Publicado por AMSOFT 

Edici6n espanola producida por 
Vector Ediciones 

AMSTRAD es marca registrada de AMSTRAD Consumer Electronics pic. 
Queda estrictamente prohibido utilizar la marca y la palabra AMSTRAD sin la debida autorizaci6n. 
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IMPORTANTE 



Por favor, lea las siguientes 



Notas de instalacion 

1. Conecte siempre el cable de alimentation a una clavija de tres patillas, siguiendo 
para ello las instrucciones que se dan en la Parte 1 del «Curso de Introductions 

2. No intente conectar este equipo a una red de distribution de energia electrica que 
no sea de 220-240 V c.a., 50 Hz. 

3. El mantenimiento que pueda hacer el usuario no requiere en ningun caso acceder 
al interior de la carcasa. Asi pues, no abra nunca el equipo. Confie todas las re- 
paraciones y operaciones de mantenimiento a personal cualificado. 

4. Para evitar la fatiga visual, ponga el monitor lo mas alejado posible del teclado 
y trabaje con luz ambiente adecuada. Deje el control de brillo (BRIGHTNESS) 
del monitor lo mas bajo posible. 

5. El ordenador deberia estar centrado con respecto al monitor, lo mas lejos posible 
de el. Para optimizar la fiabilidad del almacenamiento de datos, la unidad de dis- 
co no deberia quedar frente al monitor, sino a su derecha. No ponga el ordenador 
cerca de fuentes de interferencia electrica. 

6. Evite que las unidades de disco y los propios discos esten sometidos a la influen- 
cia de campos magneticos. 

7. Si tiene conectada la segunda unidad de disco, mantenga alejado el cable de datos 
del cable de alimentation. 

8. No obstruya ni cubra los orificios de ventilation. 

9. No utilice ni almacene el equipo a temperaturas demasiado altas ni demasiado ba- 
jas, ni en lugares humedos ni polvorientos. 
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(No se preocupe si al principio le resulta extrana la terminologia utilizada en esta sec- 
tion; el significado de estas advertencias ira quedando mas claro segun avance en la 
lectura de este manual.) 
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1. No encienda ni apague el sistema mientras haya un disco en la unidad, so pena 
de perder la information en el grab ad a. 

2. Haga copias de todos los discos que contengan datos o programas valiosos. En 
particular, copie el disco de CP/M que se suministra con el CPC664, pues si se 
deteriorase accidentalmente su sustitucion seria costosa. 

3. Para evitar el riesgo de borrar accidentalmente el disco de CP/M, cerciorese de 
que los orificios de protection del disco esten abiertos. 

4. Si esta utilizando un sistema de dos discos, es decir, si ha adquirido una unidad 
AMSTRAD FD1 adicional, encienda siempre la segunda unidad antes que el 
ordenador. 

5. No toque la superficie de los discos. 

6. No extraiga el disco mientras el ordenador no haya terminado de leer o escribir 
en el. 

7. Recuerde que al formatear los discos se borra su contenido anterior. 

8. El interfaz de la unidad de discos ocupa una pequena portion de la memoria. Al- 
gunos programas publicados en cassette para el CPC464 aprovechan esa zona de 
la memoria, y por lo tanto no pueden funcionar en el sistema CPC664+cassette. 
En caso de duda sobre la compatibilidad de los programas basados en cinta, pon- 
gase en contacto con AMSOFT o con su distribuidor. Tenga en cuenta, no obs- 
tante, que casi todos los programas de AMSOFT estan disponibles en disco para 
su utilizaci6n en el CPC664. 

9. El acuerdo de licencia para el sistema operativo CP/M (que esta codificado me- 
diante un numero de serie grabado en el disco) permite su utilizaci6n en un solo 
ordenador. Esto significa, en particular, que al usuario le esta prohibido ceder a 
otras personas copias de su CP/ M. Lea atentamente el Acuerdo de Licencia para 
el Usuario Final (apendice 1 de este manual). 
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Capitulo 1 

Curso de introduction 



Parte 1: Instalacion ... 



El CPC664 puede ser instalado con: 

1. El monitor de fosforo verde AMSTRAD GT65. 

2. El monitor de color AMSTRAD CTM644. 

3. O la unidad modulador/fuente de alimentaci6n AMSTRAD MP2 conectada 
a un televisor de color (en UHF). 



Instalacion de una clavija de red 

El CPC664 solo se puede conectar a la red de 220-240V c.a., 50 Hz. Para realizar la 
conexion se debe utilizar la clavija adecuada, que habra de ser instalada en el GT65, 
en el CTM644 o en la unidad MP2. Cualquiera que sea el tipo de clavija, es conve- 
niente proteger la entrada de corriente alterna con un fusible de 5 amperios. 



Importante 

Los hilos del cable de alimentation tienen el siguiente c6digo de colores: 

Azul: neutro 
Marr6n: activo 

Estos colores pueden no corresponder con los de los cables que llegan a la toma mu- 
ral. El criterio de conexi6n debe ser, pues, el siguiente: 

El hilo AZUL debe ser conectado a la masa de la toma mural (hilo que suele ser de 
color negro, o bien amarillo y verde). 

El hilo MARRON debe ser conectado al activo de la toma mural. 

Desenchufe la clavija de la toma mural siempre que no este utilizando el ordenador. 

No extraiga ningiin tornillo ni trate de abrir la carcasa del ordenador, del monitor ni 
de la unidad MP2. Lea y respete las advertencias que se dan en la etiqueta de carac- 
teristicas, que esta situada en la cara inferior de la carcasa del ordenador y de la fuen- 
te de alimentation, y en la cara posterior de los monitores: 

WARNING! LIVE PARTS INSIDE. DO NOT REMOVE ANY SCREWS 

(j Precaution! Circuitos activos en el interior. No extraiga ningiin tornillo.) 
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Conexion del ordenador a un monitor 

(Si va a utilizar su CPC664 con la unidad MP2, no es necesario que lea esta section.) 

1. Cerci6rese de que el monitor no esta conectado a la red. 

2. Conecte el cable que sale de la cara frontal del monitor y termina en una clavija 
grande (DIN de 6 patillas) al zocalo posterior del ordenador marcado con 
MONITOR. 

3. Conecte el cable que sale de la cara frontal del monitor y termina en la clavija 
mas pequena (5V c.c.) al zocalo posterior del ordenador marcado con 5V DC. 

4. Conecte el cable que sale de la cara posterior del ordenador y termina en una cla- 
vija pequena (12V c.c.) al zocalo que hay en la cara frontal del monitor. 
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Conexion del ordenador a la unidad 
modulador/fuente de alimentation MP2 

La MP2 es una ciudad opcional que el usuario puede querer adquirir si esta utilizan- 
do actualmente el CPC664 con el monitor de fosforo verde GT65. La MP2 permite 
conectar el CPC664 a un televisor de color domestico, para asi disfrutar de las posi- 
bilidades de color del CPC664. 

La MP2 se debe colocar inmediatamente a la derecha del CPC664. 

1. Cerci6rese de que la MP2 no esta conectada a la red. 

2. Conecte el cable de la MP2 que termina en una clavija grande (DIN de 6 patillas) 
al zocalo posterior del ordenador marcado con MONITOR. 

3. Conecte el cable que sale de la MP2 y termina en una clavija pequeiia (5V c.c.) 
al zocalo posterior del ordenador marcado con 5V DC. 

4. Conecte el cable que sale de la MP2 y termina en una clavija de antena a la en- 
trada de antena de su televisor. 

5. Conecte el cable que sale de la cara posterior del ordenador y termina en una cla- 
vija pequeiia (12V c.c.) al zocalo posterior de la MP2. 
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Encendido del sistema CPC664 con GT65 o 
con CTM644 

(Si va a utilizar su CPC664 con la unidad MP2, no es necesario que lea esta section.) 

Una vez conectado el sistema segiin se ha explicado en secciones anteriores, inserte la 
clavija de red en la toma mural. Para encender el sistema, pulse el bot6n POWER 
que esta en la cara frontal del monitor, de modo que quede en posici6n «IN». Si este 
boton esta en «OFF», el suministro de corriente al resto del sistema queda in- 
terrumpido. 

Encienda el ordenador mediante el interruptor deslizante marcado con POWER, que 
esta en su cara derecha. 

En este momento se debe encender el piloto rojo (ON) que esta en el centro del tecla- 
do; en el monitor se vera el siguiente mensaje: 



A«strad G4K Microconputer ( v2 ) 

©1984 A«strad Consumer Electronics pic 
and Locomotive Software Led. 

BASIC 1.1 

Ready 



Para evitar la fatiga visual excesiva, ajuste el control marcado con BRIGHTNESS al 
minimo neesario para que el texto se vea c6modamente, sin que deslumbre ni resulte 
borroso. 

El control BRIGHTNESS se encuentra en la parte inferior de la cara frontal del mo- 
nitor GT65 y en el lateral derecho del CTM644. 

En el caso del GT65, puede ser necesario ajustar los controles de CONTRAST y Ver- 
tical HOLD que estan en el panel frontal. 

El mando de CONTRAST se debe poner en el minimo compatible con la c6moda vi- 
sualization de los textos. 

El mando de Vertical HOLD esta marcado con V-HOLD en el GT65; su ajuste debe 
hacer que la imagen sea estable y quede centrada en la pantalla. 
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Encendido del sistema CPC664 con la unidad 
modulador/fuente de alimentation MP2 

Una vez conectado el sistema segiin se ha explicado en secciones anteriores, inserte la 
clavija de red en la toma mural. Encienda el ordenador mediante el interruptor des- 
lizante POWER que esta en su lateral derecho. 

En este momento se debe encender el piloto rojo (ON) que esta en el centro del tecla- 
do. Ahora debe sintonizar el televisor para recibir las senales del ordenador. 

Si su televisor tiene un selector de canales de botonera, pulse el boton correspondiente 
a un canal no utilizado. Ajuste el mando de sintonia siguiendo las instrucciones del 
manual del televisor (si dispone de un dial de sintonia, pruebe en las proximidades 
del canal 36) hasta obtener la siguiente imagen: 



Anstrad G4K Microcomputer ( w>2 > 

;rad Consumer Electron 
and Locomotive Software L 



1984 Amstrad Consumer Electronics pic 



BASIC 1.1 
Ready 



Trate de conseguir la maxima nitidez posible. El texto aparecera en color amarillo do- 
rado sobre fondo azul. 

Si el televisor tiene un selector de canales rotatorio, girelo hasta que pueda ver la ima- 
gen y esta sea estable (canal 36, aproximadamente). 
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Otras conexiones ... 

Si desea conectar otros perifericos, tales como 

Joystick(s) 

Magnetofono de cassettes 

Impresora 

Segunda unidad de discos 

Amplificador o altavoces externos 

Dispositivos de expansion 

etc., 

al sistema basico, consulte la Parte 2 de este «Curso de Introductions 

Finalmente, asegurese de que ha tenido en cuenta las advertencias que hemos hecho 
al principio de este manual, en la section titulada 'IMPORTANTE': 

NOTAS DE INSTALACION 1, 2, 3, 4, 5, 6, 7 y 8. 
NOTA DE OPERAClON 1. 
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Parte 2: Conexion de los perifericos ... 



En esta section vamos a explicar como se conectan al sistema CPC664 diversos peri- 
f6ricos, cuyo funcionamiento se explica en las correspondientes secciones de este 
manual. 



Joystick 



El joystick AMSOFT modelo JY2 es un aparato optional que el usuario puede desear 
adquirir si va a utilizar su CPC664 con programas de juegos diseiiados para aprove- 
char las posibilidades de control y disparo del joystick. 

Conecte el cable procedente del joystick en el zocalo marcado con JOYSTICK en el 
ordenador. El CPC664 admite dos joysticks; el segundo se conecta en el zocalo que 
hay en la peana del primero. 

Con este ordenador se puede utilizar tambien el joystick AMSOFT modelo JY1. 

En secciones posteriores de este manual daremos mas informaci6n sobre los joysticks. 



Magnetofono de cassettes 



Los programas pueden ser leidos o grabados en cinta, en lugar de en disco. Mas ade- 
lante describiremos las ordenes que indican al ordenador cuando debe leer o enviar 
datos a la cinta o al disco. 

Para conectar el magnetofono al ordenador se requiere el cable AMSOFT CL1, o un 
cable estandar equivalente. 

Inserte el extremo del cable que termina en una clavija grande (DIN de 5 patillas) en 
el z6calo del ordenador que esta marcado con TAPE. 

Inserte la clavija en la que termina el cable azul en la hembra del magnetofono que 
est6 marcada con REMOTE o REM. 

Inserte la clavija en la que termina el cable rojo en la hembra del magnet6fono que 
este marcada con MIC, COMPUTER IN o INPUT. 
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Inserte la clavija en la que termina el cable bianco en la hembra del magnetofono que 
este marcada con EAR, COMPUTER OUT o OUTPUT. 

Es importante observar que el exito en la transferencia de datos entre el CPC664 y la 
cinta depende en gran medida del correcto ajuste del control de LEVEL o de VOLU- 
ME del magnetofono. Si encuentra dificultad en la grabaci6n o lectura de los progra- 
mas, pruebe con diferentes posiciones del control de volumen del magnetofono hasta 
optimizar los resultados. 



Impresora 



El CPC664 puede ser conectado a cualquier impresora de tipo Centronics. Para co- 
nectar el ordenador a la impresora AMSTRAD DMP1, basta con utilizar el cable su- 
ministrado con esta. 

Para conectar cualquier otra impresora de tipo Centronics se necesita el cable AM- 
SOFT PL1. 

Inserte el extremo del cable que termina en un conector piano en el zocalo del orde- 
nador marcado con PRINTER. Inserte el otro extremo del cable, que termina en el 
conector de tipo Centronics, en el zocalo de la impresora. Si la impresora tiene abra- 
zaderas de seguridad, fijelas en las ranuras que hay en los laterales del conector. 

Mas adelante daremos information sobre el manejo de la impresora. 



Segunda unidad de disco (AMSTRAD FD1) 

La unidad AMSTRAD FD1 se puede incorporar al sistema como segunda unidad de 
disco. Las ventajas de disponer de dos unidades seran particularmente evidentes para 
el usuario habitual de CP/M, pues muchos programas estan disefiados para funcionar 
con el disco de programas en una unidad y los ficheros de datos en la otra. 

El sistema operativo CP/M siempre requiere que los programas se carguen desde el 
disco (no permite el acceso a la ROM de BASIC). CP/M permite acceder a ficheros 
multiples mediante una tecnica de recubrimiento que hace posible la ejecuci6n de pro- 
gramas que de otra forma no cabrian en la RAM; pero en muchas ocasiones el disco 
de programas contiene tantos, que practicamente no queda espacio para los ficheros 
de datos. 

Gracias a la versatilidad de los programas de ayudas suministrados con el disco del 
sistema, todas las operaciones de mantenimiento de ficheros (copia, borrado, etc.) se 
pueden realizar con una sola unidad de disco. Sin embargo, la segunda unidad facilita 
y acelera estos procesos, y reduce notablemente el riesgo de accidentes. 
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Para conectar la unidad FD1 al CPC664 se requiere el cable AMOSFT DI2. 

Inserte el conector piano en el zocalo del ordenador que esta marcado con DISC DRI- 
VE 2. 

Inserte el otro conector del cable en el zocalo de la unidad FD 1 . 

NO OLVIDE que, antes de encender o apagar la segunda unidad de disco, debe ex- 
traer los discos que pueda haber en ambas unidades y apagar el sistema. Si se modi- 
fica alguna conexion mientras el sistema esta encendido, lo mas probable es que se 
pierda o altere el programa actualmente residente en la memoria. Tenga la precaution 
de grabar el programa antes de modificar las conexiones de los perifericos. 

Si tiene conectada una FD1 al CPC664, encienda primero la FD1 con el interrupter 
deslizante que esta en el panel posterior; despu6s encienda el CPC664 con el inte- 
rruptor deslizante que esta en la cara derecha del ordenador. Deberan iluminarse los 
dos pilotos, rojo y verde, de la FD1; esto indicara que la segunda unidad de disco esta 
preparada para su uso. 

Mas adelante explicaremos el funcionamiento de la segunda unidad de disco. 



Amplificador y altavoces externos 

El CPC664 puede ser conectado a un sistema de amplificador y altavoces estereofo- 
nicos, unica forma de apreciar plenamente las capacidades sonoras del ordenador. 

El cable de entrada al amplificador debe terminar en una clavija estereo de 3.5 mm, 
que se inserta en la hembra marcada con STEREO en el ordenador. 

Las conexiones de la clavija deben ser las siguientes: 

Extremo de la clavija: canal izquierdo. 
Anillo interno: canal derecho. 
Cuerpo de la clavija: masa. 

El CPC664 entrega a la salida STEREO una serial de nivel constante; asi pues, el vo- 
lumen, el balance y el tono deben ser regulados con los mandos del amplificador 
externo. 

Tambien se pueden conectar auriculares de alta impedancia, aunque el volumen no 
podra ser regulado por el mando de VOLUME del ordenador. Los auriculares de baja 
impedancia, que son los habitualmente utilizados con los equipos de alta fidelidad, no 
se pueden conectar directamente al ordenador. 

Mas adelante explicaremos como enviar sonidos a cada uno de los tres canales del 
CPC664. 
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Dispositivos de expansion 



Al ordenador CPC664 se le pueden conectar diversos dispositivos de expansion (in- 
terfaz serie, modem, lapiz fotosensible, ROMs, etc.) por medio del z6calo marcado 
con EXPANSION que esta en la cara posterior del ordenador. 

Tambien se puede conectar en ese zocalo el amplificador/sintetizador de voz AM- 
SOFT modelo SSA2. 

Las conexiones del zocalo EXPANSION se describen en el capitulo titulado 'Para su 
information...' 

Finalmente, antes de proseguir, asegurese de que ha tenido en cuenta las advertencias 
que hemos hecho al principio de este manual, en la secci6n titulada 'IMPORT ANTE': 

NOT AS DE INSTALAClON 6 y 7 
NOT AS DE OPERACION 4 y 8 
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Parte 3: En cuanto a los discos ... 



El AMSTRAD CPC664 usa discos compactos de 3 pulgadas. Le sugerimos que no 
corra riesgos indebidos y que, para garantizar la fiabilidad de la transferencia de datos 
del ordenador a discos, utilice solamente los discos AMSOFT CF2. Puede, no obs- 
tante, utilizar tambien los de otras marcas de maxima garantia. 



Insertion 

Se pueden utilizar las dos caras del disco, aunque no simultaneamente. La forma co- 
rrecta de insertar los discos es con la etiqueta hacia fuera (visible) y con la cara que 
se va a usar hacia arriba: 
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Proteccion contra escritura 

En el extremo posterior izquierdo de cada cara del disco se puede ver una flecha que 
sefiala un pequeno orificio obturado: es el orificio de 'protecci6n contra escritura', 
cuya mision es evitar el borrado accidental del contenido del disco: 

Orificio de 

proteccion contra escritura 




Cuando el orificio esta cerrado, el ordenador puede 'escribir' en el disco. En cambio, 
si el orificio esta abierto, el disco esta protegido contra el borrado accidental de pro- 
gramas o datos valiosos. 

Los diversos fabricantes utilizan diferentes mecanismos de apertura y cierre del orifi- 
cio. En los discos AMSOFT CF2 el funcionamiento es como sigue: 

Para abrir el orificio, haga deslizar el pequeno obturador situado en la esquina iz- 
quierda del disco: 

Orificio de proteccion 
contra escritura (ABIERTO) 



Obturador 
ABIERTO" 



'_o*r 



r^ 



r 

i 

Proteccion activada 
PROTEGIDO 

u 



Obturador 
CERRADO 



A 
i 
i 
i 

TT 



w 



O 



r 

i 
Protecion desactivada 

NO PROTEGIDO 

u 



Para cerrar el orificio, haga deslizar el obturador en sentido contrario. 
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En algunos discos compactos el mecanismo consiste en una pequefia palanca de plas- 
tico situada en una ranura que tienen en la esquina izquierda: 



Palanca 




Orif icio de proteccibn 

contra escritura 

(CERRADO) 



Para abrir el orificio en los discos de este tipo, desplace la palanca hacia el centro del 
disco, ayudandose con la punta de un boligrafo u objeto similar: 



Desplace la palanca 

hacia el centro 

del disco 




Orificio de proteccion s \ 
contra escritura \ 

(ABIERTO) 




Observe que, cualquiera que sea el mecanismo de obturation, el efecto es siempre el 
mismo: el disco queda protegido cuando el orificio esta abierto. 



IMPORTANTE 

Cerciorese de que los orificios de proteccion de su disco maestro de CP/M estan 
abiertos. 



Curso de introduction 1/13 



Despues de introducido el disco 

En la cara frontal de la unidad de disco hay un piloto rojo y un boton de eyeccion: 



Piloto 
rojo 




Bot6n de 
eyeccion 



Ji/i/innnjuinnjinjiruuuL 



j 



Piloto 

Cuando esta encendido, indica que el ordenador esta leyendo datos del disco o escri- 
biendo en el. 

Si se ha conectado una segunda unidad de disco (unidad B), su piloto estara encen- 
dido constantemente, y se apagara cuando se encienda el de la unidad principal (uni- 
dad A). 



Boton de eyeccion 

Al pulsar este bot6n se expulsa parcialmente el disco, lo que permite que el usuario 
lo extraiga. 

Finalmente, antes de proseguir asegurese de que ha tenido en cuenta las advertencias 
que hemos hecho al principio de este manual, en la section titulada 'IMPORT ANTE': 

NOTAS DE OPERACION 1, 3, 4, 5 y 6 
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Parte 4: Manos al teclado ... 



Antes de empezar a cargar y grabar programas necesitamos familiarizarnos con algu- 
nas teclas del ordenador. Si tiene usted alguna experiencia en el manejo de los orde- 
nadores, puede omitir la lectura de esta section. 

Encienda el ordenador y vera el mensaje initial en la pantalla. Vamos a explicar las 
funciones de diversas teclas: 

<— »U TECLAS DE MOVIMIENTO DEL CURSOR 

Las cuatro teclas que estan marcadas con sendas flechas (y situadas junto a 
la tecla [COPY]) son las 'teclas de movimiento del cursor'. Estas teclas sirven, pues, 
para mover el cursor por la pantalla. 

Piilselas todas ellas y practique hasta familiarizarse con su funcionamiento. 



[ENTER] 

Hay dos teclas [ENTER]. Ambas sirven para introducir en el ordenador lo que usted 
ha tecleado. Una vez pulsada la tecla [ENTER], el cursor salta automaticamente a la 
linea siguiente de la pantalla. Siempre que teclee una orden directa o una instruction 
de programa, pulse [ENTER] al final. 

De ahora en adelante escribiremos [ENTER] para indicar que se debe pulsar esta te- 
cla al terminar de teclear ordenes o instrucciones de programa. 



[DEL]. 

Esta tecla sirve para borrar el caracter (letra, numero o signo) que esta a la izquierda 
del cursor. 

Teclee abed y observe que el cursor queda inmediatamente a la derecha de la letra d. 
Para borrar la d, pulse la tecla [DEL]. Si la mantiene pulsada durante algun tiempo, 
vera como se borran tambien las otras tres letras. 



[SHIFT] 

Hay dos teclas [SHIFT], una a cada lado del teclado. Si mantiene pulsada una de ellas 
al tiempo que pulsa una tecla literal (de letras), en la pantalla aparecera la correspon- 
diente letra en mayuscula. 
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Teclee la letra e, pulse la tecla [SHIFT] y, antes de soltarla, vuelva a teclear la e. En 
la pantalla vera lo siguiente: 

eE 

Teclee ahora unos cuantos espacios (manteniendo pulsada durante algiin tiempo la ba- 
rra espaciadora). Para probar el efecto de [SHIFT] con las teclas numericas, teclee el 
2, pulse [SHIFT] y, sin soltarla, vuelva a teclear el 2. En la pantalla aparecera lo 
siguiente: 

2" 

Haga prueba con las diferentes teclas de caracteres para observar su efecto con y sin 
[SHIFT]. 



[CAPS LOCK] 

Su efecto es en cierto modo similar al de [SHIFT]. Con s61o pulsarla una vez, las le- 
tras que se escriban a continuation apareceran en mayusculas en la pantalla, pero, en 
cambio, las teclas numericas y de signos no resultan afectadas. 

Pulse [CAPS LOCK] una sola vez y luego teclee lo siguiente: 

abcde+123456 
En la pantalla aparecera lo siguiente: 

ABCDEF123456 

Observe que las letras han sido convertidas a mayusculas y que, sin embargo, los nu- 
meros no han sido convertidos a los signos que estan grabados en la parte superior 
de las teclas numericas. Para obtener estos signos, pulse la tecla correspondiente en 
combination con [SHIFT]. Escriba ahora lo siguiente, manteniendo pulsada la tecla 
[SHIFT]: 

abcde* 123456 

En la pantalla aparecera: 

ABCDEF! "#*%& 

Para volver a caracteres normales (en miniiscula), pulse por segunda vez [CAPS 
LOCK]. 
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Si lo que desea es obtener letras mayusculas y los signos marcados en la parte supe- 
rior de las teclas, sin tener que mantener pulsada la tecla [SHIFT], puede hacer lo si- 
guiente: mantenga pulsada la tecla [CTRL] y pulse [CAPS LOCK] una sola vez. Para 
comprobar el efecto de esta combinaci6n, teclee lo siguiente: 

abcde+123456 

En la pantalla aparecera: 

ABCDEF! "**%& 

En esta situation, se pueden escribir niimeros utilizando el teclado numerico que esta 
a la derecha del teclado principal. 

Manteniendo pulsada la tecla [CTRL] al tiempo que se pulsa [CAPS LOCK] se vuel- 
ve al modo anterior (es decir, a minusculas o a bloqueo de mayusculas). Si el modo 
al que ha vuelto es a bloqueo de mayusculas, pulse [CAPS LOCK] para retornar al 
modo normal, esto es, a minusculas. 



[CLR] 

Esta tecla borra el caracter que esta bajo el cursor. 

Escriba ABCDEFGH. El cursor ha quedado a la derecha de la ultima letra (la H). 
Pulse cuatro veces la tecla «-. El cursor se ha movido cuatro posiciones hacia la iz- 
quierda, de modo que esta superpuesto a la letra E. 

Observe que la letra E es visible a traves del cursor. Pulse [CLR] y observe como de- 
saparece la letra E y como se mueven hacia la izquierda las letras FGH; bajo el cursor 
queda la F. Pulse durante unos instantes [CLR]: primero desaparece la F, y luego la 
G y la H. 



[ESC] 

Esta tecla se utiliza para abandonar una funcion que el ordenador este realizando. Si 
se pulsa [ESC] una vez, el ordenador interrumpe su tarea momentaneamente, y la rea- 
nuda si a continuaci6n se pulsa cualquier otra tecla. 

Si se pulsa [ESC] dos veces seguidas, el ordenador abandona definitivamente la tarea 
que esta realizando y queda a la espera de otras ordenes. 



Importante 



Cuando se nan tecleado 40 caracteres en una linea, el cursor esta en el extremo dere- 
cho de ella; el siguiente caracter aparecera automaticamente al principio de la linea 
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siguiente. Esto significa que no se debe pulsar [ENTER], a diferencia de lo que se 
haria si se estuviera trabajando con una maquina de escribir, en la que se ha de teclear 
el retorno del carro al acercarse al final de cada linea. 

El ordenador realiza esta funcion automaticamente; ante un [ENTER] indebido, reac- 
tionary con un mensaje de error, generalmente Syntax error, bien en el acto o bien 
mas tarde, cuando se ejecute el programa. 



Syntax error (error de sintaxis) 

Cuando en la pantalla aparece el mensaje Syntax error, el ordenador esta diciendo 
que no ha entendido la orden que se le ha dado. 

Por ejemplo, escriba 

printt CENTER] 
En la pantalla aparecera el mensaje: 

Syntax error 

Esto ocurre porque el ordenador no entiende la instruction printt. 
Si el mismo error se comete en una linea de programa, tal como 

10 printt "abc" CENTER] 

el mensaje Syntax error no aparece hasta que se ejecute el programa. Teclee: 

run CENTER] 

(Esta orden pide al ordenador que ejecute el programa que tiene en este momento al- 
macenado en la memoria.) En la pantalla aparece: 

Syntax error in 10 
10 Hrintt "abc" 

Este mensaje indica en que linea se ha detectado el error y exhibe la linea con el cur- 
sor ya preparado para que el usuario pueda corregirla. 

Lleve el cursor, con la tecla ->, hasta una letra t de printt. Pulse [CLR] para borrar 
la t que sobra y luego pulse [ENTER] para introducir la linea corregida en el 
ordenador. 
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Teclee ahora: 

run CENTER! 
El ordenador ha entendido la instruction; de hecho, ha escrito en la pantalla: 

abc 

Finalmente, asegiirese de que ha tenido en cuenta las advertencias que hemos hecho 
al principio de este manual, en la section titulada 'IMPORTANTE': 

NOTAS DE INSTALACION 4 y 5 
NOTA DE OPERACION 1 
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Parte 5: Carga de programas ... 



Vamos a hacer una demostracion de lo rapida que es la carga de programas grabados 
en disco. Encienda el equipo, inserte el disco maestro de CP/M con la cara 1 hacia 
arriba y teclee lo siguiente: 

run Vointime.dem" [ENTER] 

Al cabo de unos segundos el programa habra quedado cargado en la memoria del or- 
denador. Responda a la pregunta de si esta utilizando un monitor de fdsforo verde 
(teclee Y para 'si', o N para 'noO y podra ver una demostracion del juego 'Roland in 
Time' en la pantalla. Quiza se anime a comprarlo. 

Cuando haya terminado de ver la demostracidn, puede 'escapar' del programa de la 
siguiente forma: pulse las teclas [CTRL] y [SHIFT] y, antes de soltarlas, pulse [ESC]. 
Esta action reinicializa por completo la maquina; llevela a cabo siempre que quiera 
volver a la situation en que se encuentra la maquina cuando acaba de encenderla. 
(Cuando se reinicializa el ordenador de esta forma, no es necesario extraer el disco 
que pueda haber en la unidad.) 

Si el programa no se ha cargado normalmente, estudie el mensaje que ha aparecido 
en la pantalla para averiguar que ha ocurrido. Por ejemplo, 

Drive A: disc missing 
Retry, Ignore or Cancel? 

significa que no ha insertado el disco, o que no lo ha hecho correctamente, o quiza 
que lo ha puesto en la unidad B. 

ROINTIME.DEM not found 

significa que no ha puesto el disco correcto, o que ha puesto la cara 2, o que no ha 
tecleado correctamente el nombre del programa, ROINTIME.DEM. 

Si aparece el mensaje 

Bad command 

lo mas probable es que haya tecleado mal ROINTIME.DEM, quiza incluyendo un es- 
pacio o un signo de puntuacion. 

Type mismatch 
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significa que ha omitido las comillas ("). 

Syntax error 

indica que ha tecleado incorrectamente la orden run. 

El mensaje 

Drive A: read -fail 
Retry, Ignore or Cancel? 

indica que el ordenador no ha conseguido leer los datos grabados en el disco. Com- 
pruebe que el disco que ha insertado es el correcto y pulse R (de Retry, 'volver a in- 
tentarlo'). fiste es el mensaje que aparece siempre que se ha estropeado un disco por 
dejarlo dentro de la unidad al apagar o encender el sistema. 

Cuando hayamos explicado como hacer copias de los discos, copie sistematicamente 
todos los programas valiosos, en particular el disco maestro de CP/ M. 

Carga de programas AMSOFT 

Esperamos haberle abierto el apetito, asi que vamos a cargar un juego. 

Inserte en la unidad un disco de juegos y teclee 

run "disc" [ENTER] 

Al cabo de unos segundos el juego estara cargado y en marcha. Si teclea run"disc" 
con el disco maestro de CP/ M instalado en la unidad, podra ver y oir el programa 
de demostracion 'Welcome'. 

Cuando haya terminado de ver 'Welcome', reinicialice el ordenador mediante las te- 
clas [CTRL], [SHIFT] y [ESC]. 

La orden descrita (run"disc") sirve para cargar casi todos los programas de AM- 
SOFT grabados en disco, aunque en ocasiones habra que teclear algo distinto. En 
todo caso, las instrucciones de carga estan impresas en la etiqueta del disco; sigalas 
siempre escrupulosamente. 

Para terminar, asegiirese de que ha tenido en cuenta las advertencias que hemos he- 
cho al principio de este manual, en la section titulada 'IMPORT ANTE': 

NOTA DE INSTALAClON 6 
NOT AS DE OPERAClON 1, 5 y 6 
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Parte 6: Empecemos a trabajar 



A estas alturas ya sabemos que podemos y que no podemos hacer con el ordenador, 
asi como la forma de conectarle perifericos. Sabemos para que sirven algunas teclas 
del ordenador y como cargar programas. Ahora vamos a ver algunas de las 6rdenes 
e instrucciones que usted puede teclear para que empiecen a ocurrir cosas ... . 

Al ordenador le ocurre lo que a los humanos: s61o puede entender instrucciones que 
se le dan en un lenguaje que conozca. En el caso del ordenador, ese lenguaje es BA- 
SIC (siglas de Beginners' All-purpose Symbolic Instruction Code, 'codigo de instruc- 
ciones simb61icas de uso general para principiantes'). Las palabras del vocabulario de 
BASIC son las llamadas 'palabras clave', 'palabras reservadas' o 'palabras de instruc- 
tion'. Cada una de ellas ordena a la maquina que realice una determinada funcion. 
Todos los lenguajes tienen sus reglas gramaticales, y BASIC no es la exception. En 
informatica, el concepto de gramatica se reduce al de 'sintaxis'; de ahi que el ordena- 
dor tenga la amabilidad de decirnos de vez en cuando que hemos cometido un error 
de sintaxis: Syntax error. 



Introduction a las palabras clave del BASIC 
del AMSTRAD 

En un capitulo posterior, titulado 'Lista completa de las palabras clave del BASIC del 
ASMTRAD CPC664', daremos una description de todas las palabras del dialecto de 
BASIC que entiende este ordenador. En esta section vamos a presentar s61o las que 
se utilizan con mayor frecuencia. 



CLS 

Para borrar la pantalla escriba: 

els CENTER] 

Como puede observar, la pantalla efectivamente se borra y en su extremo superior iz- 
quierdo aparecen la palabra Ready y el cursor ■. 

Para introducir palabras clave de BASIC valen tanto las letras mayusculas como las 
miniisculas. 
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PRINT 

Esta instruction sirve para hacer que el ordenador escriba en la pantalla caracteres 
sueltos, palabras completas, frases o mimeros. Teclee la siguiente instrucci6n: 

print "hola" [ENTER] 

En la pantalla puede ver: 

hola 

Las comillas " " indican al ordenador que es lo que debe escribir. La palabra hola 
aparecio en la pantalla en cuanto se pulso [ENTER]. Teclee 

els [ENTER] 

para borrar la pantalla. 



RUN 

En el ejemplo anterior nemos visto como obedece el ordenador una orden directa. 
Pero esto no siempre es deseable, ya que el ordenador olvida la orden inmediatamente 
despues de ejecutarla. Podemos almacenar en la memoria del ordenador una sucesion 
de instrucciones para que mas tarde sean ejecutadas en un orden determinado. Tal su- 
cesi6n de instrucciones constituira un programa. Las instrucciones de BASIC que po- 
demos incluir en un programa tienen la forma que hemos visto, pero van precedidas 
de un niimero de linea. Si el programa consta de mas de una instrucci6n, los mimeros 
de linea indican al ordenador en que orden debe ejecutarlas. Cuando despues de te- 
clear una linea de instruction se pulsa [ENTER], la linea queda almacenada en la me- 
moria hasta que pidamos al ordenador que ejecute el programa. Escriba lo siguiente: 

10 print "hola" [ENTER] 

Observe que en este caso, aunque ha pulsado [ENTER], la palabra hola no ha apa- 
recido en la pantalla, sino que ha quedado almacenada en la memoria del ordenador, 
incluida en la linea de programa. Para ejecutar este pequeno programa debemos dar 
al ordenador la orden directa run. Escriba 

run [ENTER] 

Ahora si aparece la palabra hola en la pantalla. 

Observe algo interesante: en lugar de escribir la palabra print completa, basta con te- 
clear el signo de interrogation ?; por ejemplo, 

10 ? "hola" [ENTER] 
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LIST 

Cuando se tiene un programa almacenado en la memoria, se puede comprobar su con- 
tenido haciendo un 'listado'. Escriba 

list [ENTER] 
En la pantalla aparece 

10 PRINT "hola" 
que es la unica linea de nuestro programa. 

Observe que ahora la palabra PRINT esta en mayiisculas. Esto nos indica que el or- 
denador ha reconocido PRINT como palabra clave de BASIC. 

Escriba els [ENTER] para borrar la pantalla. Compruebe que, aunque se ha borrado 
el texto que habia en la pantalla, el programa sigue estando en la memoria del 
ordenador. 



GOTO 

Esta instruction pide al ordenador que sake de la linea actual a la linea especificada, 
para no ejecutar un grupo de instrucciones, si el salto es hacia delante, o para formar 
un bucle, si el salto es hacia atras. Escriba 

10 print "hola" [ENTER] 
20 goto 10 [ENTER] 

y luego 

run [ENTER] 

Como puede ver, el ordenador escribe repetidamente la palabra hola, a la izquierda 
de la pantalla, saltando cada vez a la linea siguiente. La raz6n es que, al llegar a la 
linea 20, la instrucci6n goto 10 reenvia el programa a la linea 10. 

Para detener el programa, pulse [ESC] una vez. Para reanudarlo, pulse cualquier otra 
tecla. Para detenerlo definitivamente, de forma que se puedan introducir otras ins- 
trucciones, pulse [ESC] dos veces. 

Escriba ahora 

els [ENTER] 

para borrar la pantalla. 



1/24 Curso de introduction 



Para inhibir el salto a la linea siguiente de la pantalla cada vez que el ordenador es- 
criba hola, teclee nuevamente el programa anterior, pero poniendo ahora un signo 
de punto y coma (;) al final de las comillas: 

10 print "hola"; [ENTER] 
20 goto 10 CENTER] 
run CENTER3 

El punto y coma indica al ordenador que debe escribir el siguiente grupo de caracteres 
inmediatamente a la derecha del anterior (suponiendo que quepan en la misma linea). 

Para detener este programa pulse [ESC] dos veces. Escriba otra vez el mismo pro- 
grama, pero poniendo una coma (,) en lugar del punto y coma (;): 

10 print "hola", [ENTER] 
run [ENTER] 

Como puede observar, la coma ha indicado al ordenador que escriba el siguiente gru- 
po de caracteres 13 posiciones a la derecha del lugar en que empezo a escribir el an- 
terior. Esta funci6n es litil cuando se quiere visualizar informaci6n en columnas. No 
obstante, si el numero de caracteres del grupo es mayor que 12, la escritura empezara 
otras 13 posiciones mas a la derecha, de forma que entre columnas siempre quedara 
algun espacio. 

Este numero, 13, es modificable con la instruction ZONE, que describiremos mas 
adelante. 

Para detener este programa, pulse [ESC] dos veces. Para borrar completamente la me- 
moria del ordenador, pulse las teclas [CTRL] y [SHIFT] y, antes de soltarlas, pulse 
[ESC]. 



INPUT 

Esta instrucci6n hace que el ordenador quede a la espera de que el usuario introduzca 
informaci6n por el teclado; por ejemplo, en respuesta a alguna pregunta. 

Escriba lo siguiente: 

10 input "cuantos aftos t ienes" ; edad [ENTER] 
20 print "pues no aparentas tener";edad; 

"aftos." [ENTER] 
run [ENTER] 

En la pantalla aparece la pregunta: 

cuantos a?fQs t ienes? 
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Escriba su edad y pulse [ENTER]. Si, por ejemplo, su edad es 18 afios, el programa 
escribe lo siguiente: 

pues no aparentas tener IS aPfos. 

Este ejemplo ilustra la utilizaci6n de input combinada con una variable numerica. He- 
mos puesto la palabra edad al final de la linea 10, y por consiguiente en la memoria, 
para que el ordenador pueda asociarla al numero que el usuario introduzca; despues, 
en la Hnea 20, en lugar de edad escribira ese numero. Nada nos obligaba a elegir pre- 
cisamente ese nombre, edad, y podiamos haber utilizado una letra cualquiera, por 
ejemplo, b. 

Reinicialice el ordenador para borrar la memoria (teclas [CTRL], [SHIFT] y [ESC]). 
Si queremos captar por el teclado una respuesta que este formada por caracteres cua- 
lesquiera (letras solas o letras mezcladas con numeros), debemos poner el signo de do- 
lar ($) al final del nombre de la variable. Las variables de este tipo son las que deno- 
minamos variables literates. 

Escriba el siguiente programa (observe que en la linea 20 hay que poner un espacio 
despues de la "a" de hola y otro antes de la "m" de mi): 

10 input "como te 1 lamas" ; nombre* [ENTER] 
20 print "hola, "; nombre*; " , yo me llamo 

Rolando" [ENTER] 
run [ENTER] 

En la pantalla puede ver: 

como te llamas? 

Escriba su nombre y luego pulse [ENTER]. Si el nombre introducido es, por ejemplo, 
Manolo, el programa escribe: 

hola, Manolo, yo me llamo Rolando 

En este caso hemos usado nombre$ como nombre de la variable literal, pero perfec- 
tamente podriamos haber elegido una letra cualquiera, por ejemplo a$. Vamos a com- 
binar los dos ejemplos anteriores en un solo programa. 

Reinicialice la maquina con [CTRL], [SHIFT] y [ESC]. Teclee lo siguiente: 

5 els [ENTER] 

10 input "como te llamas"; a* [ENTER] 

20 input "cuantos aWos tienes";b [ENTER] 

30 print "desde luego, ";a*;", no aparentas 

tener" ; b; "aWos" [ENTER] 
run [ENTER] 
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En este programa hemos utilizado dos variables: a$ para representar el nombre y b$ 
para representar la edad. En la pantalla aparece la primera pregunta: 

como te llamas? 

Escriba su nombre (supongamos que es Manolo) y luego pulse [ENTER]. El ordena- 
dor le pregunta ahora: 

cuantos aWos tienes? 
Escriba su edad (supongamos que es 18 afios) y luego pulse [ENTER]. 
Si lo que hemos supuesto es cierto, en la pantalla aparecera la siguiente frase: 

desde luego, Manolo, no aparentas tener 18 a?fos 



Edition de programas 



Si alguna de las lineas del programa anterior hubiera sido mecanografiada incorrec- 
tamente, lo que podria provocar el mensaje de error Syntax error o algun otro, en 
lugar de escribirla de nuevo es posible corregirla ('editarla' es como se dice en infor- 
matica). Para ilustrar como hacerlo, vamos a escribir incorrectamente el programa: 

5 clss CENTER] 

10 input "como t llamas"; a* CENTER] 
20 input "cuantos arfos tienes"Jb CENTER] 
30 print "desde luego, "; a*; " , no aparentas 
tener " ; b; "affos" CENTER] 

En este programa hay tres errores: 

En la linea S hemos escrito clss en lugar de els. 

En la linea 10 hemos escrito t en lugar de te. 

En la linea 30 olvidamos poner un bianco entre la coma y el signo de cerrar comillas. 

Hay tres metodos para corregir un programa. El primero consiste en escribir nueva- 
mente la linea erronea. Al hacerlo, la linea nueva sustituye a la que habia en la me- 
moria con el m6todo numero. 

El segundo es el 'metodo del cursor de edition'. 

El tercero es el 'metodo del cursor de copia'. 
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Metodo del cursor de edicion 

Vamos a corregir el error de la linea 5. 

Escriba lo siguiente: 

edit 5 CENTER] 

En la pantalla aparece la linea 5, por debajo de la 30, con el cursor situado sobre la 
c de els. 

Para suprimir la s que sobra, pulse la tecla de movimiento del cursor -> hasta que 
este quede sobre la ultima s de clss; pulse la tecla [CLR] y observe como desaparece 
la s. 

A continuation pulse [ENTER] para introducir la version corregida de la linea 5 en 
la memoria. Escriba 

list CENTER] 

y comprobara que la linea ha quedado corregida. 

La orden AUTO, que describiremos mas adelante en este manual, se puede combinar 
con este metodo para corregir un grupo de lineas sucesivas. 



Metodo del cursor de copia 



El cursor de copia es un segundo cursor, distinto del que puede ver en este momento 
en la pantalla, que aparece cuando se pulsa [SHIFT] en combinaci6n con alguna de 
las teclas de movimiento del cursor. De esta forma, el cursor de copia se separa del 
cursor ordinario y puede ser llevado a cualquier lugar de la pantalla. 

Para corregir los errores de las lineas 10 y 30, pulse la tecla [SHIFT] y, sin soltarla, 
pulse f hasta llevar el cursor de copia al principio de la linea 10. Como puede ver, 
el cursor principal no se ha movido, por lo que hay dos cursores en la pantalla. Ahora 
pulse varias veces [COPY] hasta que el cursor de copia este sobre el espacio que hay 
entre la t y la palabra llamas. Observe que el principio de la linea 10 ha sido copiado 
en la ultima linea de la pantalla y que el cursor principal se ha detenido en la misma 
columna que el de copia. Escriba la letra e, que aparecera solamente en la linea inferior. 

El cursor ordinario se ha movido, pero el de copia se ha quedado donde estaba. Pulse 
ahora [COPY] hasta completar la copia de la linea 10. Pulse [ENTER] para transferir 
esta version de la linea 10 a la memoria. El cursor de copia desaparece y el cursor 
ordinario queda por debajo de la nueva linea 10. 
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Para corregir el otro error, mantenga pulsada la tecla [SHIFT] y Ueve el cursor de co- 
pia con la tecla | hasta el principio de la linea 30. Pulse [COPY] hasta que el cursor 
de copia quede sobre las comillas que siguen a la coma. Pulse la barra espaciadora 
una vez, con lo que se inserta un espacio en la linea nueva. Pulse [COPY] y no la 
suelte hasta que haya terminado de copiar el resto de la linea 30; pulse entonces 
[ENTER]. 

Compruebe que el programa ha quedado correctamente almacenado en la memoria 
escribiendo: 

list CENTER] 

Nota. Para llevar el cursor (durante el proceso de edition) al principio o al final de 
una linea, pulse la tecla «- o la — > una vez manteniendo pulsada al mismo tiempo la 
tecla [CTRL]. 

Reinicialice el ordenador con las teclas [CTRL], [SHIFT] y [ESC]. 



IF 

Las palabras clave IF (si) y THEN (entonces) se combinan para hacer que el ordena- 
dor realice una determinada accion en funcion del resultado de una comprobacion es- 
pecificada. Por ejemplo, en la instruccion 

i-f 1 + 1=2 then print "correcto" [ENTER] 

el ordenador comprueba si es cierto que 1+1=2 y obra en consecuencia. 

La palabra clave ELSE (si no) da un segundo curso de accion para el caso de que la 
comprobacion de como resultado 'falso' (o sea, que la condition no se cumpla). Por 
ejemplo, 

i-f 1 + 1=0 then print "correcto" else print "■falso'' [ENTER] 

Vamos a ampliar nuestro programa anterior con la instruccion IF ... THEN. Teclee 
lo siguiente: 

5 els [ENTER] 

10 input "como te llamas"; a* [ENTER] 
20 input "cuantos aWos tienes";edad [ENTER] 
30 i-f edad < 13 then 60 [ENTER] 
40 i-f edad < 20 then 70 [ENTER] 
50 i-f edad > 19 then 80 [ENTER] 
60 print "Bueno, ";a*;", todavia no eres un 
adolescente a los" 5 edad; "arTos" : end [ENTER] 
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70 print "Bueno, ";a*;", a tus" ; edad ; "affos eres 

un adolescente" : end [ENTER] 
80 print "Que le vamos a hacer, "J a*;", ya no eres 

un adolescente a tus" ; edad; "affos" [ENTER] 

(Observe que hemos introducido dos simbolos nuevos: <, que significa 'menor que' y 
esta junto a la tecla de la M, y >, que significa 'mayor que' y esta junto a la tecla de 
<.) Para comprobar que el programa ha quedado correctamente introducido escriba 

list [ENTER] 

y a continuation 

run [ENTER] 

Responda a las preguntas que le haga el ordenador y vea que ocurre. 

En este ejemplo puede observar el efecto de la instruction IF ... THEN. Tambien he- 
mos introducido una palabra clave nueva: END (fin); su efecto es concluir la ejecu- 
cion del programa. Si no estuviera END en la linea 60, el programa continuaria en la 
linea 70. Por lo mismo, si no hubieramos puesto END en la linea 70, el programa no 
terminaria en ella, sino que ejecutaria tambien la 80. El signo de dos puntos (:) que 
precede a la palabra END separa esta palabra de la instruction anterior. Este signo 
se puede utilizar para separar instrucciones cuando interese poner varias en una mis- 
ma linea de programa. Tambien hemos incluido la linea 5, en la que borramos la pan- 
talla. En lo sucesivo seguiremos haciendolo, para tener programas mis 'elegantes' y 
evitar confusiones. 

Reinicialice la maquina pulsando las teclas [CTRL], [SHIFT] y [ESC]. 



FOR ... NEXT 

Estas palabras clave se utilizan cuando se desea que una parte del programa se repita 
cierto numero de veces. Las instrucciones que deban repetirse son las que se incluyen 
en el bucle FOR ... NEXT (para ... siguiente). 

Escriba lo siguiente: 

5 els [ENTER] 

10 for a=l to 10 [ENTER] 

20 print "operacion numero: "ja [ENTER] 

30 next a [ENTER] 

run [ENTER] 
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Como puede ver, la action de la linea 20 ha sido realizada 10 veces, tal como exige 
la instruction FOR de la linea 10. Observe tambien como se ha ido incrementando 
de 1 en 1 la variable a. 

La palabra clave STEP (paso) se puede incluir en la instruction FOR ... NEXT para 
especificar la forma en que debe incrementarse o decrementarse la variable. Por ejem- 
plo, modifique la linea 10 y ejecute el programa: 

10 -for a=10 to 50 step 5 [ENTER] 

El paso tambien puede ser negativo. Por ejemplo: 

10 -for a=100 to step -10 [ENTER] 
run [ENTER] 



REM 

REM es abreviatura de REMark (observation). Esta instruction indica al ordenador 
que debe ignorar todo lo que haya despues de ella en la linea de programa. Sirve, 
pues, para hacer anotaciones al programa; por ejemplo, el titulo, el significado de una 
variable, etc.: 

10 REM Fulminar los invasores [ENTER] 

20 S=5:REM numero de supervi vientes [ENTER] 

El signo de comilla ' (que se obtiene de la tecla del 7 con [SHIFT]) es a su vez abre- 
viatura de :REM. Por ejemplo, 

10 'Fulminar los invasores [ENTER] 

20 S=5 'numero de supervivientes [ENTER] 



GOSUB 

Si en un programa hay un grupo de instrucciones que deban ser ejecutadas varias ve- 
ces, no es necesario escribirlas reiteradamente cada vez que el programa las necesite. 
Lo que se hace es ponerlas en una 'subrutina', la cual puede ser invocada siempre que 
se desee mediante la instrucci6n GOSUB (ir a subrutina) seguida del numero de la 
linea donde empieza la subrutina. El final de la subrutina se senala con la instruction 
RETURN (retorno). Cuando el programa llega a RETURN, la ejecuci6n salta a la 
instrucci6n siguiente a aquella que invoco la subrutina. 

(Los dos programas siguientes no hacen mas que escribir la letra de una canci6n po- 
pular en la pantalla, y por lo tanto no es necesario que se tome la molestia de intro- 
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ducirlos en el ordenador. Los hemos incluido aqui solamente para demostrar c6mo 
se pueden utilizar las subrutinas para realizar tareas repetidas.) 

En el siguiente programa: 

10 MODE 2 I ENTER ] 

20 PRINT "Dicen que no la quieres y la 
regalas" [ENTER] 

30 PRINT "Peritas de Don Guindo y uvas 
tempranas" [ENTER] 

40 PRINT "Al tribulete" [ENTER] 

50 PRINT "Que no quiere bailar con usted" [ENTER] 

60 PRINT "Dejala, dejala sola" [ENTER] 

70 PRINT [ENTER] 

80 PRINT "Es tu cara Id mismo que luna blanca" [ENTER] 

90 PRINT "Y tus djds luceros que la acompahan" [ENTER] 

100 PRINT "Al tribulete" [ENTER] 

110 PRINT "Que no quiere bailar con usted" [ENTER] 

120 PRINT "Dejala, dejala sola" [ENTER] 

130 PRINT [ENTER] 

140 PRINT "Tengo yo comparado, nifta, tu rostro" 

[ENTER] 
150 PRINT "Con la luna de enero y el sol de agosto" 

[ENTER] 
180 PRINT "Al tribulete" [ENTER] 

190 PRINT "Que no quiere bailar con usted" [ENTER] 
200 PRINT "Dejala, dejala sola" [ENTER] 
210 PRINT [ENTER] 
run [ENTER] 

puede observar que hemos repetido varias instrucciones. Por ejemplo, la linea 40 (prin- 
cipio del estribillo) esta repetida en la 100 y en la 180. Pongamos todo el estribillo en 
una subrutina, con RETURN al final; entonces podremos 'llamarlo' con la instrucci6n 
GOSUB 1 80 cada vez que lo necesitemos. El programa queda de la siguiente forma: 

10 MODE 2 [ENTER] 

20 PRINT "Dicen que no la quieres y la regalas" 

[ENTER] 
30 PRINT "Peritas de Don Guindo y uvas tempranas" 

[ENTER] 
40 GOSUB 180 [ENTER] 

80 PRINT "Es tu cara lo mismo que luna blanca" [ENTER] 
90 PRINT "Y tus ojos luceros que la acompaftan" [ENTER] 
100 GOSUB 180 [ENTER] 

140 PRINT "Tengo yo comparado, niWa, tu rostro" 
[ENTER] 
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150 PRINT "Con la luna de enero y el sol de agosto" 

[ENTER] 
170 END CENTER] 

180 PRINT "Al tribulete" CENTER] 

190 PRINT "Que no quiere bailar con usted" CENTER] 
200 PRINT "Dejala, dejala sola" CENTER] 
210 PRINT CENTER] 
220 RETURN [ENTER] 
run CENTER] 

El ahorro de trabajo es evidente. El correcto diseno de subrutinas es una faceta esen- 
cial de la informatica. Con ellas se pueden escribir programas 'estructurados'; son la 
base para la adquisicion de buenos habitos de programacion. 

Cuando escriba subrutinas, tenga en cuenta que no esta obligado a saltar siempre a 
su primera linea. Por ejemplo, si hay una rutina en las lineas 500 a 800, podria inte- 
resar llamarla con GOSUB 500, con GOSUB 640 o con GOSUB 790. 

Observe que en el programa anterior hemos incluido la instruction END en la b'nea 
170 para aislar la subrutina del resto del programa. De no haberlo hecho, el programa 
pasaria de la linea 160 a la 180. 



Aritmetica sencilla 

El ordenador se puede utilizar como calculadora. 

Para aprender como hacerlo, pruebe los siguientes ejemplos. En esta section utiliza- 
mos el signo de interrogation ? como abreviatura de print. El ordenador escribe la 
respuesta en cuanto se pulsa [ENTER]. 



Suma 

(el signo 'mas' se obtiene de la tecla del punto y coma ; con [SHIFT]). 
Escriba: 

?3+3 [ENTER] 
6 

(No se teclea el signo =). 

Escriba: 

?8+4 [ENTER] 
12 
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Resta 

(el signo 'menos' esta en la tecla del =, sin [SHIFT]). 
Escriba: 

?4-3 CENTER] 
1 



Escriba: 



?8-4 CENTER] 
4 



Multiplication 

(el signo de multiplication es el asterisco *, que se obtiene de la tecla de dos puntos 
: con [SHIFT]). 

Escriba: 

?3*3 CENTER] 
9 

Escriba: 



?8*4 CENTER] 
32 



Division 

(el signo de dividir es la barra inclinada /, que se obtiene de la tecla de ? sin [SHIFT]). 
Escriba: 

?3/3 CENTER] 
1 

Escriba: 

?8/4 CENTER] 

2 
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Division entera 

(es la division en la que se ignora el resto; su signo es la barra inclinada hacia la iz- 
quierda \). 



Escriba: 



?10\6 [ENTER] 
1 



Escriba: 



?20\3 I ENTER] 
6 



Modulo 

(la funcion MOD da el resto de la division entera). 
Escriba: 

?10 MOD 4 [ENTER] 

2 

Escriba: 

?9 MOD 3 I ENTER] 





Raiz cuadrada 

Para hallar la raiz cuadrada de un numero se utiliza la funci6n sqr( ). El numero del 
que se va a extraer la raiz (esto es, el radicando) se pone entre parentesis. 

Escriba: 

?sqr<16) CENTER] 
4 

(esto significa ^16). 

Escriba: 

?sqr<100) [ENTER] 
10 
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Potentiation 

(en los ordenadores el signo de 'elevar a una potencia' es la flecha hacia arriba, que 
en el AMSTRAD se obtiene de la tecla de £ sin [SHIFT]). 

La potenciaci6n es la operation de elevar un numero a una potencia; es decir, multi- 
plicarlo por si mismo tantas veces como indica el exponente. Por ejemplo, 3 al cua- 
drado (3 2 ), 3 al cubo (3 3 ), 3 a la cuarta (3 4 ), etc. 

Escriba: 

?3t3 CENTER] 
27 

(esto significa 3 3 ). 

Escriba: 

?8t4 CENTER] 

(esto significa 8 4 ). 

Raiz cubica 

Extraer la raiz cubica de un numero es lo mismo que elevarlo a la potencia (1/3). 
Asi, para hallar la raiz cubica de 27 (-^/27) escriba: 

?27t (1/3) CENTER] - 

3 

Para hallar la raiz cubica de 125 escriba: 

?125t<l/3) CENTER] 

5 



Operaciones combinadas (+, -, *, /) 

El ordenador entiende correctamente las operaciones combinadas, pero es necesario 
saber con que orden de prioridad las realiza. 

La primera prioridad es para la multiplicaci6n y la division, y la segunda para la suma 
y la resta. Este orden de prioridad es valido solamente para los calculos en los que no 
intervienen mas que estas operaciones. 
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Si la operation fuera: 

3+7-2*7/4 

se podria pensar que el ordenador la realizaria de la forma: 

3+7-2 *7 /4 
= 8 *7 /4 
= 56/4 
= 14 

Sin embargo, el proceso de calculo es como sigue: 

3+7-2*7/4 

=3+7-14/4 

=3+7-3.5 

=10-3.5 

=6.5 

Compruebelo escribiendo 

?3+7-2*7/4 [ENTER] 
6.5 

Para alterar este orden se pueden incluir parentesis segun convenga. El ordenador rea- 
liza las operaciones internas a los parentesis antes que las externas. Compruebelo es- 
cribiendo lo siguiente: 

?(3+7-2>*7/4 [ENTER] 
14 

El orden completo de prioridad de las operaciones matematicas es el siguiente: 

f Potentiation 

MOD Modulos 

Cambio de signo 
# y / Multiplication y division 
\ Division entera 

t y - Suma y resta 



Mas exponentes 



Cuando en los calculos van a intervenir numeros muy grandes o muy pequeiios, es 
conveniente utilizar notation cientifica. La letra E (mayuscula o minuscula) indica que 
el numero que esta a su derecha es una potencia de 10. 
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Por ejemplo, 300 es lo mismo que 3>< 10 2 . En notation cientifica escribiriamos 3E2. Ana- 
logamente, 0.03 es igual a 3*10 2 ; en notation cientifica, 3E-2. Pruebe los siguientes 
ejemplos. 

Puede escribir 

?30*10 CENTER] 
300 

o bien 

?3E1*1E1 CENTER] 
300 

73000*1000 CENTER] . . . o bien . . . ?3E3#1E3 CENTER] 
3000000 

73000*0.001 CENTER] ... o bien ... ?3E3#lE-3 CENTER] 

3 
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Parte 7: Grabelo en disco 



Ahora que ha ejercitado su habilidad como mecanografo escribiendo unas cuantas ins- 
trucciones, seguramente querra saber como grabar en disco un programa almacenado 
en la memoria del ordenar, para luego cargarlo del disco al ordenador. 

Aunque usted tenga alguna experiencia en la grabacion y carga de programas en cin- 
ta, hay algunas peculiaridades del sistema de grabacion en disco que es necesario tener 
en cuenta. 

Hay dos diferencias fundamentales entre los discos y las cintas. La primera es que, a 
diferencia de lo que ocurre con las cintas, para grabar en un disco no basta con sa- 
carlo de la caja e introducirlo en la unidad. Los discos nuevos tienen que ser 'forma- 
teados' o 'inicializados'; enseguida veremos como hacerlo. 

La otra diferencia tiene que ver con los nombres que se pueden dar a los ficheros. En 
el sistema de grabacion en cinta, los nombres de los ficheros practicamente no siguen 
ninguna regla, salvo la de la longitud; incluso se pueden grabar ficheros sin nombre. 
No ocurre asi con el sistema de grabacion en disco, en el que los nombres de los fi- 
cheros deben atenerse a las normas de CP/M, como veremos mas adelante. 



Inicializacion de discos 

Antes de poder escribir datos en un disco virgen es necesario inicializarlo o forma- 
tearlo. Esta operation consiste en preparar una especie de estanteria en el disco; los 
estantes son los lugares en los que mas tarde se va a almacenar la information. 

Al inicializar un disco, este queda dividido en 360 zonas: 



Pista 39 




Caja 



Sector 



Pista 
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Radialmente el disco se divide el 40 pistas, desde la niimero 0, que es la mas externa, 
hasta la 39. La circunferencia se divide en 9 sectores. 

Cada pista puede almacenar en cada sector 512 bytes; por lo tanto, la capacidad total 
del disco es de 180K. 



Primeros pasos en la utilizacion del disco de 
CP/M 

Antes de poder grabar programas en un disco virgen es necesario inicializarlo, y para 
ello se requiere el disco de CP/ M. 

Encienda el equipo e inserte el disco de CP/M en la unidad. Si su sistema dispone de 
dos unidades de disco, utilice la incorporada en el ordenador (unidad A). 

Escriba lo siguiente: 

lepra center: 

(El simbolo | se obtiene de la tecla @ con [SHIFT].) 

Al cabo de unos segundos aparecera en la pantalla el siguiente mensaje: 

CP/M 2.2 - Amstrad Consumer Electronics pic 
A> 

Esto es un mensaje de saludo que indica que el sistema operativo esta siendo contro- 
lado por CP/M. 

Los caracteres A> constituyen un indicador, analogo al Ready de BASIC, que avisa 
al usuario de que el ordenador esta a la espera de sus instrucciones. 

Una vez cargado CP/ M, ya no se pueden teclear instrucciones de BASIC, pues el or- 
denador no las entenderia. 

Por ejemplo, si escribimos 

els CENTER] 
el ordenador repite lo tecleado junto con un signo de interrogation: 

CLS? 
lo que indica que no ha entendido la instruction. 
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Para dar un breve repaso a algunas ordenes de CP/ M, escriba: 

dir [ENTER] 

En la pantalla aparece una lista del contenido del disco, incluidas algunas ordenes tran- 
sitorias. Una de ellas es format. Escriba: 

format [ENTER] 

En la pantalla aparece el siguiente mensaje: 

Please insert disc to be -formatted into drive A 
then press any key. 

('Inserte el disco que va a inicializar en la unidad A y luego pulse una tecla cualquie- 
ra.') Extraiga el disco de CP/M, introduzca el disco virgen y luego pulse una tecla 
(gris) cualquiera. El proceso de initialization comienza con la pista y termina con 
la 39; una vez concluido, el ordenador le pregunta: 

Do you want to -format another disc (Y/N): 

('Quiere inicializar otro disco (S/N):'.) Si desea inicializar la otra cara del disco, o 
bien un segundo disco, responda pulsando la tecla Y (de yes, si) y volvera a aparecer 
el mensaje inicial. 

Este proceso se puede repetir cuantas veces se desee, hasta que se responda con N (de 
'no") a la pregunta, momento en el que el ordenador pide al usuario que: 

Please insert a CP/M system disc into drive A 
then press any key: 

(Tor favor, inserte un disco de CP/M en la unidad A y luego pulse una tecla cual- 
quiera.") Una vez hecho esto, el ordenador vuelve a modo CP/ M directo y queda a la 
espera de nuevas instrucciones. Mas adelante describiremos otras funciones de CP/ M. 
Por ahora nos basta con haber aprendido a inicializar discos con CP/ M. Reinicialice 
el ordenador con [CTRL], [SHIFT] y [ESC]. 

Guarde siempre en lugar seguro el disco maestro de CP/M, que es, literalmente, la 
Have del sistema. En un capitulo posterior explicaremos como hacer una 'copia de tra- 
bajo' del disco de CP/M, de forma que pueda guardar el original a salvo de toda po- 
sibilidad de accidente. 

precauciOn 

al inicializar un disco que contenga algun fichero se borra 

su contenido 
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No es posible inicializar un disco que tenga el orificio de protection abierto. Si lo in- 
tenta, el ordenador respondera con el mensaje: 

Drive A: disc is write protected 
Retry, Ignore or Cancel? 

Pulse C para cancelar la orden y luego siga las instrucciones que aparezcan en la 
pantalla. 

Ahora que ya tenemos uno o dos discos preparados, vamos a empezar a transferir pro- 
gramas de BASIC del ordenador al disco y viceversa. 



Grabacion de un programa en disco 

Cuando se tiene un programa en la memoria del ordenador, se lo puede grabar en dis- 
co mediante la orden 

save "nombre-f i " [ENTER] 

Observe que es indispensable dar un nombre al programa. 

El nombre de un fichero grabado en disco consta de dos partes (campos). La primera 
es obligatoria y puede contener hasta 8 caracteres. Se pueden utilizar letras o nume- 
ros, pero no espacios ni signos de puntuacion. Este primer campo suele contener el 
nombre del programa. 

El segundo campo es optional. Puede contener hasta 3 caracteres que no sean ni es- 
pacios ni signos de puntuacion. Los dos campos se separan por un punto (.). 

Si el usuario no especifica el segundo campo, el sistema le asigna automaticamente 
un distintivo: .BAS para ficheros de BASIC o .BIN para ficheros binarios (en cddigo 
de maquina). 

Para practicar la grabaci6n en disco, introduzca un programa corto en la memoria 
del ordenador, inserte en la unidad un disco inicializado y escriba lo siguiente: 

save "ejemplo" [ENTER] 

Al cabo de unos segundos aparecera en la pantalla el mensaje Ready, lo que indica 
que el programa ha quedado grabado en el disco. (De no ser asi, observe los mensajes 
emitidos por el ordenador, pues puede ocurrir que no haya insertado el disco en la 
unidad correcta, que este abierto el orificio de protection o que se haya equivocado 
al teclear la orden.) 
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Catalogo 

Una vez grabado el programa, escriba lo siguiente: 

cat [ENTER] 

En la pantalla podra ver 

Drive A: user 
EJEMPLO.BAS IK 
168 K free 

o sea, el nombre del fichero, incluido el segundo campo, seguido de la longitud apro- 
ximada en K. En la ultima linea se indica tambien el espacio que queda libre en el disco. 

Carga del disco a la memoria del ordenador 

Los programas se pueden cargar y ejecutar con las dos ordenes siguientes: 

lDad "nombre+i" [ENTER J 
run [ENTER] 

Pero tambien se los puede ejecutar directamente con una sola orden: 

run "nombre+i" [ENTER] 
Los programas protegidos solo se pueden ejecutar por este segundo metodo. 



lAy IB 



Si tiene conectada la segunda unidad de disco, puede especificar en que unidad desea 
que se realice cada funcion escribiendo 

ia [ENTER] 
o bien 

!b [ENTER] 
antes de las ordenes SAVE, CAT o LOAD. 



Curso de introduction 1/43 



— ' 

Copia de programas de disco a disco 

Para copiar programas de un disco a otro utilizando las 6rdenes que hemos aprendido 
en esta section, basta con hacer lo siguiente: cargar el programa en memoria leyendo- 
lo del disco original (fuente), sacar el disco, insertar el disco nuevo (destino) y grabar 
en el el programa. 

En cambio, cuando se dispone de dos unidades de disco, es mas comodo insertar el 
disco fuente en una unidad, por ejemplo la B, y el disco destino en la A. Para copiar 
un programa se escribe entonces lo siguiente: 

lb CENTER] 

load "nombre-fi" [ENTER] 

la [ENTER] 

save "nombre-f i " [ENTER] 

Hay cuatro formas de grabar programas con el CPC664. Una de ellas es la ya conocida: 

save "nombre-fi" [ENTER] 
La segunda es: 

save "nombre-f i ",a [ENTER] 

donde el sufijo „a indica al ordenador que debe grabar el programa o los datos en for- 
ma de fichero de texto ASCII. Este metodo de grabacion de datos es aplicable a los 
ficheros generados por procesadores de textos y otros programas; lo explicaremos mas 
detenidamente cuando hablemos de esas aplicaciones. 

La tercera forma es: 

save "nombre-f i " ,p [ENTER] 

El sufijo ,p indica al ordenador que el fichero debe ser protegido. Cuando un pro- 
grama esta asi protegido, no es posible cargarlo (LOAD) para luego listarlo (LIST), 
ni tampoco interrumpirlo con la tecla [ESC] despues de haber iniciado su ejecucion 
con RUN. 

Los programas grabados por este procedimiento solo pueden ser ejecutados directa- 
mente, bien con la orden 

run "nombre-fi" [ENTER] 

bien con 

chain "nombre-fi" [ENTER] 
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Siempre que se prevea la posibilidad de que mas tarde se vaya a corregir o modificar 
un programa, se debe guardar una copia no protegida, esto es, grabada sin el sufijo 
.P- 

La cuarta forma de grabacion es: 

save "nombre-f i " , b, (direction inicial > , Oongitud en bytes) 

[, <punto de entrada, opcional) ] CENTER] 

Esta option permite realizar un volcado directo de datos desde la memoria RAM del 
ordenador hacia el disco. Ademas del sufijo ,b es necesario indicar al ordenador en 
que direction de memoria empieza el bloque que se desea transferir, cual es la longi- 
tud en bytes y, en su caso, en que direction de memoria debe empezar la ejecucion 
cuando se cargue el fichero como programa. Con este metodo se puede hacer un vol- 
cado de la memoria dedicada a la pantalla. El contenido de la pantalla se graba me- 
diante la siguiente orden: 

save "volcpant" ,b, 49152, 16384 CENTER] 

donde 49152 es la direcci6n en la que empieza la zona de memoria dedicada a la 
pantalla y 1 6384 es el tamafio de esa zona en bytes. 

Para cargar nuevamente esos datos en el ordenador se escribe: 

load "volcpant" [ENTER] 

En un capitulo posterior de este manual daremos mas information sobre la transfe- 
rencia de datos de un disco a otro, de cinta a disco y de disco a cinta. 

Finalmente, asegiirese de que ha tenido en cuenta las advertencias que hemos hecho 
al principio del manual, en la section titulada 'IMPORT ANTE': 

NOTAS DE INSTALACI6N 5, 6 y 7. 

NOTAS DE OPERACION 1, 2, 3, 4, 5, 6, 7 y 9. 
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Parte 8: Introduction a los modos de 
pantalla, colores y graficos 



El AMSTRAD CPC664 tiene tres modos de pantalla: modo 0, modo 1 y modo 2. Al 
encenderlo, el ordenador selecciona automaticamente el modo 1 . 

Para apreciar las diferencias entre los tres modos, encienda el ordenador y pulse la 
tecla del 1 . Mantengala pulsada hasta que se hayan llenado dos lineas de pantalla. Si 
cuenta los unos, observara que hay 40 en cada linea. Esto quiere decir que en modo 

1 la pantalla tiene 40 columnas. Pulse [ENTER]: el ordenador respondent con un men- 
saje de Syntax error, pero no se preocupe; esta es una forma rapida de obtener nue- 
vamente el mensaje Ready, que indica que el ordenador esta preparado para recibir 
nuestras instrucciones. 

Escriba: 

mode [ENTER] 

Observara que ahora los caracteres son mas grandes. Pulse otra vez la tecla del 1 y 
no la suelte hasta que se hayan llenado dos lineas de la pantalla. Compruebe que aho- 
ra hay 20 unos por linea. Esto significa que en modo la pantalla tiene 20 columnas. 
Pulse nuevamente [ENTER] y luego escriba: 

mode 2 [ENTER] 

Observe que ahora los caracteres son muy pequeflos. Puede comprobar que en modo 

2 la pantalla tiene 80 columnas. 

Resumiendo, 

Modo 0=20 columnas 
Modo 1=40 columnas 
Modo 2=80 columnas 

Finalmente, vuelva a pulsar [ENTER]. 



Colores 

Este ordenador puede manejar 27 colores. En el monitor de fosforo verde (GT65) apa- 
recen como distintas gradaciones de verde. Si usted adquirio el sistema con el monitor 
GT65, en cualquier momento puede comprar la unidad modulador/fuente de alimen- 
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tacion MP2, con la que podra disfrutar de los colores del ordenador conectandolo a 
un televisor domestico. 

En modo se pueden visualizar simultaneamente 16 de los 27 colores disponibles. 
En modo 1 se pueden visualizar simultaneamente 4 de los 27 colores. 
En modo 2 se pueden visualizar simultaneamente 2 de los 27 colores. 

Se pueden controlar los colores del borde, del papel (fondo) y de la pluma (trazo) in- 
dependientemente unos de otros. 

Los 27 colores disponibles son los relacionados en la tabla 1, en la que se incluyen 
tambi6n los numeros de referenda para la instrucci6n INK (tinta). 

Para mayor comodidad, esta tabla aparece tambien en la carcasa del ordenador, al 
lado derecho. 

LISTA DE COLORES 



Numero 




Numero 




Numero 




deINK 


Color 


deINK 


Color 


deINK 


Color 





Negro 


9 


Verde 


18 


Verde intenso 


1 


Azul 


10 


Cyan 


19 


Verde mar 


2 


Azul intenso 


11 


Azul celeste 


20 


Cyan intenso 


3 


Rojo 


12 


Amarillo 


21 


Verde lima 


4 


Magenta 


13 


Blanco 


22 


Verde pastel 


5 


Malva 


14 


Azul pastel 


23 


Cyan pastel 


6 


Rojo intenso 


15 


Anaranjado 


24 


Amarillo intenso 


7 


Morado 


16 


Rosado 


25 


Amarillo pastel 


8 


Magenta intenso 17 


Magenta pastel 


26 


Blanco intenso 



Tabla 1. Numeros de INK y colores. 

Como hemos dicho, el ordenador se pone automaticamente en modo 1 al encenderlo. 
Para volver a modo 1 estando en cualquier otro, basta con escribir: 

mode 1 CENTER] 



La pantalla 



El borde (BORDER) es el area que rodea el papel (PAPER). (Cuando se enciende el 
ordenador, el borde y el papel son ambos azules.) Los caracteres que escribimos en la 
pantalla s61o puede estar en la region interior al borde. El papel es el fondo sobre el 
que la pluma escribe los caracteres. 
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PEN 



BORDER 
PAPER 



Vamos a explicar como se seleccionan los colores. 

Cuando se enciende o reinicializa el ordenador, este selecciona automaticamente el co- 
lor numero 1 para el borde. Como puede comprobar en la tabla 1, el color numero 
1 es el azul. El color del borde se puede cambiar mediante la orden BORDER seguida 
del numero del color deseado. Por ejemplo, escriba: 

border 13 [ENTER] 

Esto es facil. Lo complicado viene ahora: 

Cuando se enciende o reinicializa la maquina, el numero de papel seleccionado auto- 
maticamente es el 0, y el de la pluma es el 1 . Esto no quiere decir que los colores co- 
rrespondientes sean los que figuran en la tabla anterior con los niimeros y 1. 

Lo que ocurre es que el y el 1 son niimeros de papel y de pluma, no niimeros de 
tinta. Vamos a explicarnos. Supongamos que tenemos en nuestra mesa cuatro plu- 
mas, numeradas del al 3, y 27 tinteros, numerados del al 26. Es evidente que cuan- 
do decimos 'pluma numero 1' no necesariamente estamos refiriendonos al color nu- 
mero 1 . La pluma numero 1 puede estar cargada con tinta de cualquier color; de he- 
cho, podemos tener las cuatro plumas cargadas con la misma tinta. 

Pues bien, algo similar ocurre en el ordenador. Con la instruction PEN (pluma) po- 
demos elegir la pluma con la que vamos a escribir; la instruction INK (tinta) nos per- 
mite 'cargar' esa pluma con tinta del color deseado. 

Recordando que estamos en modo 1 (40 columnas), consulte la tabla 2 y comprobara 
que la pluma numero 1 esta cargada inicialmente con tinta de color 24. Pero el color 
24 es, como podemos ver en la tabla 1, amarillo intenso: el color con que se escriben 
los caracteres cuando acabamos de encender el ordenador. 



1/48 



Curso de introducci6n 



COLORES DE TINTA IMPLICITOS 



Numero de 


Color de tinta 


Color de tinta 


Color de tinta 


papel/pluma 


ModoO 




Modo 1 


Modo 2 





1 




1 


1 


1 


24 




24 


24 


2 


20 




20 


1 


3 


6 




6 


24 


4 


26 




1 


1 


5 







24 


24 


6 


2 




20 


1 


7 


8 




6 


24 


8 


10 




1 


1 


9 


12 




24 


24 


10 


14 




20 


1 


11 


16 




6 


24 


12 


18 




1 


1 


13 


22 




24 


24 


14 


Parpadeo 


1,24 


20 


1 


15 


Parpadeo 


16,11 


6 


24 



Tabla 2. Valores de papel/pluma/modo/tinta. 

Las relaciones entre papel, pluma y tinta no son fijas. Los valores que se muestran en 
la tabla 2 son los seleccionados automaticamente en el momento de encender la ma- 
quina. Se los puede cambiar mediante la instruccion INK (tinta). Esta instrucci6n va 
seguida de dos numeros (parametros). El primero es el niimero de papel o de pluma 
que vamos a cargar; el segundo es el color con que vamos a cargarlos. Los parametros 
van separados por una coma. 

Puesto que estamos utilizando la pluma niimero 1, vamos a cambiar el color de tinta 
correspondiente: la cargaremos con tinta de color anaranjado. Escriba: 

ink 1,15 CENTER] 

Los caracteres han cambiado instantaneamente de color. 

Tambien podemos cambiar el color del fondo mediante la instruccion INK. Sabemos 
que el numero de papel seleccionado al encender la maquina es el 0; vamos a cam- 
biarle el color a verde (color numero 9) escribiendo: 

ink 0,9 CENTER] 

Ahora vamos a escribir con una pluma diferente. Escriba: 

pen 3 CENTER] 
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El color de los caracteres ya escritos no ha cambiado. Esta instruction afecta sola- 
mente a los que escribamos a continuation. En este momento estamos utilizando la 
pluma numero 3. Como puede comprobar en las tablas 1 y 2, la tinta con que esta 
pluma esta cargada inicialmente es la de color numero 6 (rojo intenso). Para cambiar- 
la a rosa escriba: 

ink 3,16 CENTER] 

Recuerde que el 3 es el color de la pluma, y que el 16 es el color de la tinta con que 
la cargamos (rosa). 

Cambiemos ahora de papel. Cuando lo hagamos, el anterior color de fondo no cam- 
biara, porque ese color ha sido impreso con otro papel. Escriba lo siguiente: 

paper 2 CENTER] 

Consultando nuevamente las tablas 1 y 2, compruebe que el color inicialmente asig- 
nado al papel numero 2 es cyan intenso. Cambielo a negro escribiendo: 

ink 2,0 CENTER] 

En este momento, en la pantalla tenemos caracteres escritos por las plumas 1 y 3, so- 
bre fondos de papel numeros y 2. Tambien se puede cambiar el color de la tinta de 
una pluma o de un papel que no esten siendo utilizados. Por ejemplo, escriba la orden: 

ink 1,2 CENTER] 

que cambia el color de los caracteres que habiamos escrito antes con la pluma nume- 
ro 1. 

Escriba: 

els CENTER] 

* 

para borrar la pantalla. 

El lector ya deberia ser capaz de hacer que el ordenador vuelva a los colores iniciales 
(borde y fondo azul y caracteres amarillos) utilizando las instrucciones BORDER, PA- 
PER, PEN e INK. Intentelo. Si no lo consigue, reinicialice la maquina con [CTRL], 
[SHIFT] y [ESC]. 



Colores parpadeantes 



Es posible hacer que una tinta cambie intermitentemente de color. Para ello se debe 
afiadir otro numero a la instruction INK que asigna tintas a la pluma utilizada. 
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Vamos a hacer que los caracteres que escribamos alternen entre los colores bianco in- 
tenso y rojo intenso. Reinicialice la maquina con [CTRL], [SHIFT] y [ESC] y escriba 
lo siguiente: 

ink 1,26,6 CENTER] 

En este caso el 1 es el numero de la pluma, el 26 es el del color bianco intenso y el 
6 es el del segundo color, rojo intenso. 

El mismo efecto de parpadeo se puede dar a los colores del fondo, para lo cual se afia- 
de un segundo numero de color a la instruction INK que asigna tintas al papel actual. 
Para hacer que el color del fondo alterne entre verde y amarillo intenso escriba: 

ink 0,9,24 CENTER] 

En este caso es el numero del papel, 9 es el numero del color verde y 24 es el nu- 
mero del segundo color, el amarillo intenso. 

Reinicialice el ordenador con [CTRL], [SHIFT] y [ESC]. 

Observe en la tabla 2 que en modo hay dos numeros de pluma y dos numeros de 
papel, el 1 4 y el 1 5, que tienen asignados tintas parpadeantes. Es decir, sus corres- 
pondientes tintas estan preprogramadas con un color adicional. 

Escriba lo siguiente: 

mode CENTER] 
pen 15 [ENTER] 

y vera en la pantalla la palabra Ready parpadeando entre azul celeste y rosa. Escriba 
ahora: 

paper 14 [ENTER] 



El texto continua parpadeando como antes, pero ademas el fondo ha empezado a al- 
ternar entre los colores amarillo y azul. 

Los numeros de pluma y de papel 1 4 y 1 5 pueden ser reprogramados, mediante la 
adecuada instruction INK, para que parpadeen con otras tintas o bien para asignarles 
un color fijo. 

Finalmente, se puede hacer parpadear el borde sin mas que especificar un segundo 
numero de color en la instruction BORDER. Escriba: 

border 6,9 [ENTER] 
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El borde esta parpadeando entre los colores rojo intenso y verde. Observe que al bor- 
de se le puede asignar uno o dos colores cualesquiera de los 27 disponibles, indepen- 
dientemente del modo en que este la pantalla (0, 1 o 2). 

Reinicialice el ordenador con [CTRL], [SHIFT] y [ESC]. 

Introduzca y ejecute el siguiente programa, que demuestra los colores disponibles. 

10 MODE CENTER] 

20 velocidad=600: REM velocidad del programa CENTER] 

30 FOR b=0 TO 26 CENTER] 

40 LOCATE 3,12 CENTER] 

50 BORDER b CENTER] 

60 PRINT "color del borde: ";b CENTER] 

70 FOR t=l TO velocidad CENTER] 

80 NEXT t,b CENTER] 

90 CLG CENTER] 

100 FOR p=0 TO 15 CENTER] 

110 PAPER p CENTER] 

120 PRINT "papel:" !p CENTER] 

130 FOR n=0 TO 15 CENTER] 

840 PEN n CENTER] 

150 PRINT "pluma:"!n CENTER] 

160 NEXT n CENTER] 

170 FOR t=l TO velocidad*2 CENTER] 

180 NEXT t,p CENTER] 

190 MODE 1 CENTER] 

200 BORDER 1 CENTER] 

210 PAPER CENTER] 

220 PEN 1 CENTER] 

230 INK 0, 1 CENTER] 

240 INK 1,24 CENTER] 

run CENTER] 



OBSERVACION MUY IMPORTANTE 

En este programa, asi como en otros capitulos y listados de este manual, las pa- 
labras clave de BASIC aparecen en mayusculas, pues el ordenador convierte au- 
tomaticamente minusculas a mayusculas cuando se le pide que haga un listado 
del programa (con LIST). En general, es preferible escribir las instrucciones en 
minuscula; esto ayudara mas tarde a detectar errores, ya que las palabras clave 
de BASIC que contengan algun error no seran convertidas a mayusculas. 

En lo que resta de este 'Curso de Introducci6n' daremos los listados indistinta- 
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mente en mayusculas y minusculas, para que usted se familiarice con esta ca- 
racteristica de BASIC. 

Los nombres de las variables, tales como x o a$, no son convertidos a mayus- 
culas al listar el programa. Sin embargo, el ordenador reconoce las variables tan- 
to si estan en mayusculas como si estan en minusculas; de hecho, para el orde- 
nador x es la misma variable que X. 



Atencion 

A partir de ahora no vamos a seguir recordandole que debe pulsar [ENTER] al 
terminar de escribir cada linea de programa y cada orden directa, pues supone- 
mos que usted ya esta suficientemente habituado a hacerlo. 



Graficos 

En la memoria del ordenador esta pregrabado el diseno de cierto numero de caracte- 
res. Para escribirlos en la pantalla necesitamos la palabra clave: 

chr*< ) 

Dentro de los parentesis se pone el numero del caracter, que esta en el margen de 32 
a 255. 

Reinicialice el ordenador con [CTRL], [SHIFT] y [ESC] y escriba lo siguiente: 

print chr*<250) 

No olvide pulsar [ENTER]. En la pantalla ha aparecido el caracter numero 250, que 
es la figura de un hombre caminado hacia la derecha. 

Para ver todos los caracteres y simbolos, junto con su numero correspondiente, in- 
troduzca y ejecute el siguiente programa (recuerde que debe pulsar [ENTER] al final 
de cada linea): 

10 -for n=32 to 255 
20 print n;chr*<n) ; 
30 next n 
run 

Todos estos caracteres y numeros figuran en el capitulo titulado 'Para su referencia ...'. 
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LOCATE 

Esta instruction sirve para colocar el cursor en un lugar especificado de la pantalla. 
A menos que se lo mueva con una instruction LOCATE, el punto de partida del cur- 
sor es el extremo superior izquierdo de la pantalla, punto de coordenadas 1,1 (en el 
sistema de coordenadas x,y, donde x es la position horizontal e y es la vertical). En 
modo 1 hay cuarenta columnas y 25 filas (o lineas). Asi, para colocar el cursor en el 
centro de la primera linea, tendremos que utilizar 20, 1 como coordenadas x, y. 

Teclee lo siguiente (sin olvidar pulsar [ENTER] al final de cada linea): 

mode 1 ... borra la pantalla j lleva el cursor al extreio superior izquierdo 

10 locate 20,1 

20 print chr*(250) 

run 

Para comprobar que el caracter esta en la primera linea, cambiemos el color del borde: 

border 

El borde es ahora negro y el hombrecillo esta en el centro de la linea superior. 
En modo solo hay 20 columnas, pero las mismas 25 lineas. Si ahora escribe: 

mode 
run 

vera que el hombre se ha ido al extremo superior derecho de la pantalla. Esto ha ocu- 
rrido porque la coordenada x=20 es la ultima columna en modo 0. Escriba: 

mode 2 
run 

Vuelva a modo 1 con: 

mode 1 

Ahora pruebe usted con diferentes posiciones en locate y diferentes niimeros en 
chr$( ). Por ejemplo, escriba: 

locate 20,12:print chr*(240) 

y vera una flecha en el centro de la pantalla. Observe que en esta instruction: 

20 es la coordenada x (horizontal) (margen: 1 a 40) 
1 2 es la coordenada y (vertical) (margen: 1 a 25) 
240 es el numero del caracter (margen: 32 a 255) 
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Para mover el caracter 250 de izquierda a derecha de la pantalla, escriba lo siguiente: 

10 CLS 

20 FOR x = l TO 39 

30 LOCATE x,20 

50 PRINT CHR*<250) 

60 NEXT x 

70 GOTO 10 

run 

Pulse [ESC] dos veces para detener el programa. 

Si queremos borrar el caracter recien escrito antes de escribir el siguiente, debemos 
hacer 

50 print " " 5 chr* <250) 

(Esta nueva linea 50 reemplaza automaticamente la que teniamos antes.) Escriba: 

run 



FRAME 

Para mejorar la ilusion de movimiento del caracter por la pantalla, afiada al progra- 
ma anterior la siguiente linea: 

40 -frame 

La instruccion FRAME sincroniza el movimiento de objetos por la pantalla con la 
frecuencia a la que se envian las imagenes al monitor. La explication es demasiado 
tecnica, pero basta con que recordemos que esta instruccion se debe utilizar siempre 
que queramos mover objetos suavemente por la pantalla. 

Este programa se puede mejorar introduciendo pausas y utilizando un simbolo distin- 
to para el retroceso. 

Escriba: 

list 

y afiada las siguientes lineas: 

70 FOR n=l TO 300: NEXT n 

80 FOR x=39 TO 1 STEP -1 

90 LOCATE x,20 

100 FRAME 

110 PRINT CHR*<251);" " 

120 NEXT x 

130 FOR n=l TO 300: NEXT n 

140 GOTO 20 

run 
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PLOT 

La instruction PLOT es analoga a LOCATE, pero controla la position del cursor gra- 
fico y utiliza un sistema de coordenadas distinto, en el que las distancias se miden en 
pixels (un pixel, o punto, es la minima area de la pantalla controlable individualmente). 

El cursor grafico es invisible, y distinto en todos los aspectos del cursor de texto. 

La pantalla se divide en 640 puntos en horizontal por 400 en vertical. Las coordena- 
das x, y se toman con respecto al extremo inferior izquierdo de la pantalla, que es el 
punto de coordenadas 0, 0. A diferencia de lo que ocurria con LOCATE, las coor- 
denadas de este sistema no dependen del modo de pantalla (0, 1 o 2). 

Para comprobarlo, reinicialice la maquina con [CTRL], [SHIFT] y [ESC] y escriba: 

plot 320,200 

Observe el punto que ha aparecido en el centro de la pantalla. 

Hagamos lo mismo en modo 0: 

mode 

plot 320,200 

El punto sigue estando en el centro de la pantalla, pero es mas grande. Para ver el 
efecto en modo 2 escriba: 

mode 2 

plot 320,200 

Como era de esperar, el punto sigue centrado, pero es mucho mas pequeflo. 

Dibuje unos cuantos puntos en diversos lugares de la pantalla y en modos distintos 
para familiarizarse con esta instruction. Cuando haya terminado, escriba: 

mode 1 

para volver a modo 1 y borrar la pantalla. 



DRAW 

Reinicialice la maquina con [CTRL], [SHIFT] y [ESC]. La instruction DRAW dibuja 
una recta a partir de la posici6n actual del cursor grafico. Para verla en acci6n, dibuje 
un rectangulo con el siguiente programa. 
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En la linea 10 la instruction POS coloca el cursor en el punto de partida deseado. A 
continuaci6n, las instrucciones DRAW van dibujando segmentos de recta: hacia arri- 
ba, hacia la derecha, etc. Escriba: 

5 els 

10 plot 10, 10 
20 draw 10,390 
30 draw 630,390 
40 draw 630, 10 
50 draw 10, 10 
60 goto 60 
run 

Pulse [ESC] dos veces para interrumpir el programa. 

(Observe la linea 60 de este programa. Esta linea establece un bucle infinito, del que 
s61o se sale interrumpiendo el programa. Una instruction de este tipo es util cuando 
se quiere evitar que el ordenador exhiba el mensaje Ready al terminar el programa.) 

Afiada al programa las siguientes lineas, las cuales dibujan un segundo rectangulo den- 
tro del anterior: 

60 plot 20,20 
70 draw 20,380 
80 draw 620,380 
90 draw 620,20 
100 draw 20,20 
110 goto 110 
run 

Pulse [ESC] dos veces para interrumpir el programa. 



MOVE 

Esta instruction funciona igual que PLOT en cuanto a llevar el cursor grafico a la po- 
sicidn especificada, pero no dibuja el punto. 

Escriba: 

els 

move 639,399 

Aunque no podamos verlo, hemos Uevado el cursor al extremo superior derecho de 
la pantalla. 
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Para demostrarlo, vamos a dibujar unajecta desde ese punto hasta el centro de la pan- 
talla. Escriba: 

draw 320,200 

Circunferencias 

Las circunferencias se pueden dibujar punto a punto o con trazo continue Una forma 
de dibujar una circunferencia consiste en dibujar puntos en las posiciones correctas. 
En la figura siguiente se ilustra como se calculan las coordenadas x, y de un punto p 
de la circunferencia. Las formulas son: 

x=190*cos<a) 
y=190*sin(a) 
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Dibujo de una circunferencia 

En los programas anteriores hemos referido todos los dibujos al extremo inferior iz- 
quierdo de la pantalla. Si queremos que nuestra circunferencia quede centrada en la 
pantalla, debemos situar su centro en el punto de coordenadas 320, 200, y luego su- 
mar a estos valores los dados por las formulas anteriores. 

El siguiente programa dibuja punto a punto una circunferencia: 



new 
10 CLS 

DEG 

FOR a=i TO 360 

MOVE 320,200 

PLOT 320+190*COS<a) , 200+190*SIN <a) 

NEXT 



20 
30 
40 
50 
60 
run 
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Observe que hemos tecleado la orden NEW antes de introducir el programa. Esta or- 
den hace que el ordenador borre el programa que en ese momento tenga en la memo- 
ria (de forma similar a lo que ocurre cuando se pulsa [CTRL], [SHIFT] y [ESC]). Sin 
embargo, la pantalla no se borra. 

El radio de la circunferencia se puede reducir poniendo en lugar de 190 un niimero 
menor de pixels. 

Para ver el efecto de dibujar la circunferencia de otra forma (en radianes), borre la 
linea 20 escribiendo: 



20 

En lugar de punto a punto, podemos dibujar la circunferencia con trazo continue Mo- 
difique la linea 50 para poner draw en lugar de plot. La linea sera entonces: 

50 draw 320+190*cos (a) , 200+190*si n (a) 

Pruebe esta modification con la linea 20 y sin ella. 

Observe que en la linea 60 de este programa hemos puesto NEXT en lugar de NEXT 
a. En efecto, se puede omitir el nombre de la variable, pues el ordenador se encarga 
de averiguar a que FOR corresponde cada NEXT. No obstante, en los programas en 
los que haya muchos bucles FOR ... NEXT, puede ser conveniente poner los nombres 
de las variables despues de N EXT para que el programa sea mas inteligible cuando se 
lo este corrigiendo o estudiando. 

ORIGIN 

En el programa anterior utilizabamos la instruction MOVE para establecer el centro 
de la circunferencia y luego sumabamos a las coordenadas del centro las coordenadas 
de los puntos de la circunferencia. Podemos evitar esas sumas si redefinimos la posi- 
tion del origen de coordenadas con la instruction ORIGIN. El ordenador entendera 
las coordenadas que se le suministren a continuation como referidas al nuevo origen. 
Escriba lo siguiente: 

new 

10 els 

20 -for a=l to 360 

30 origin 320,200 

40 plot 190*cos(a) ,190*sin(a) 

50 next 

run 
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El siguiente programa dibuja cuatro circunferencias mas pequenas: 

new 

10 CLS 

20 FOR a=l TO 360 

30 ORIGIN 196,282 

40 PLOT 50*COS(a) ,50*SIN(a) 

50 ORIGIN 442,282 

60 PLOT 50*COS(a) ,50*SIN(a) 

70 ORIGIN 196,116 

80 PLOT 50*COS(a) ,50*SIN(a) 

90 ORIGIN 442,116 

100 PLOT 50*COS(a) ,50*SIN<a) 

110 NEXT 

run 

Otra forma de dibujar la circunferencia (con trazo continuo) es la siguiente: 

new 

10 MODE 1 

20 ORIGIN 320,200 

30 DEG 

40 MOVE 0, 190 

50 FOR a=0 TO 360 STEP 10 

60 DRAW 190*SIN(a) , 190#COS<a) 

70 NEXT 

run 

En este caso se van dibujando pequefios segmentos de recta, de un punto al siguiente 
de la circunferencia. Este metodo es mucho mas rapido que el de dibujo punto a punto. 

Observe una vez mas el efecto de la instruction DEG: suprima la linea 30 y ejecute 
el programa. 



FILL 

La instrucci6n FILL (rellenar) se utiliza para rellenar una regi6n de la pantalla que 
este delimitada por graficos o por los bordes de la pantalla. 

Reinicialice la maquina con [CTRL], [SHIFT] y [ESC] y luego escriba: 

new 

10 els 

20 move 20,20 

30 draw 620,20 

40 draw 310,380 

50 draw 20,20 

run 
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En la pantalla ha aparecido un triangulo. Lleve el cursor grafico al centro de la pan- 
talla con la orden 

mode 320,200 

Vamos a utilizar la instruction FILL seguida de un numero de pluma, por ejemplo 
el 3, para rellenar con la tinta de la pluma especificada el recinto cerrado en que se 
encuentra el cursor. Escriba lo siguiente: 

+ i 1 1 3 
Lleve el cursor al exterior del triangulo con la orden 

move 0,0 
Observe que ocurre cuando escriba: 

fill 2 

El ordenador ha usado la pluma numero 2 para rellenar la zona delimitada por el di- 
bujo y los bordes de la pantalla. 

Modifique ahora el programa escribiendo las lineas siguientes y vea que ocurre: 

50 draw 50,50 
60 move 320,200 
70 -fill 3 
run 

La tinta 'rezuma' por las ranuras. 

Veamoslo con otro ejemplo. Rellenemos una circunferencia dibujada punto a punto: 

new 

10 CLS 

20 FOR a=l TO 360 

30 ORIGIN 320,200 

40 PLOT 190*COS(a) , 190*SIN(a) 

50 NEXT 

60 MOVE -188,0 

70 FILL 3 

run 

Pruebe ahora con: 

new 

10 MODE 1 

20 ORIGIN 320,200 

30 DEG 
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40 MOVE 0, 190 

50 FOR d=0 TO 360 STEP 10 

60 DRAW 190*SIN<a) , 190*COS<d) 

70 NEXT 

80 MOVE -188,0 

90 FILL 3 

run 

Para hacer que el borde del circulo sea invisible, dibujamos la circunferencia con tinta 
del mismo color que la del papel. Afiada la siguiente linear 

45 GRAPHICS PEN 2: INK 2,1 
run 

La instruction GRAPHICS PEN selecciona la pluma que haya de ser utilizada para 
dibujar graficos. La instrucci6n INK especifica el color de tinta para esa pluma, que 
en este caso coincide con el color del papel (color numero 1 ). 



Otros detalles ... 

En la seccion 'Expresado graficamente', del capitulo titulado 'Cuando usted guste ...', 
daremos una explication mas detallada de los graficos del CPC664. 

Para concluir esta seccion, le ofrecemos unos programas de demostracion de graficos 
que incorporan muchas instrucciones que el lector ya deberia entender. 

10 BORDER 0: GRAPHICS PEN 1 

20 m=CINT(RND*2) : MODE m 

30 i 1 =RND*26 : i 2=RND*26 

40 IF ABS(il-i2)<10 THEN 30 

50 INK 0, il: INK 1, i2 

60 s=RND*5+3: ORIGIN 320,-100 

70 FOR x=-1000 TO STEP 5 

80 MOVE 0,0: DRAW x, 300: DRAW 0,600 

90 MOVE 0,0: DRAW -x, 300: DRAW 0,600 

100 NEXT:FOR t=l TO 2000: NEXT: GOTO 20 

run 



10 MODE l: BORDER 0: PAPER 

20 GRAPHICS PEN 2: INK 0,0:i=14 

30 EVERY 2200 GOSUB 150 

40 indicador=0:CLG 

50 INK 2,14 + RND# 1 2 (Continiia en la pagina siguiente.) 
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60 b%=RND*5+l 

70 c%=RND*5+l 

80 ORIGIN 320,200 

90 FOR a=0 TO 1000 STEP PI/30 

100 x%=100*COS<a) 

110 MOVE x%,y% 

120 DRAW 200*COS<a/b%> , 200*SIN < a/c%) 

130 IF indicador=l THEN 40 

140 NEXT 

150 indicador=l:RETURN 

run 



10 MODE l: BORDER 0:DEG 

20 PRINT "Por favor, espere" 

30 FOR n=l tD 3 

40 INK 0,0:INK 1,26:INK 2,6:INK 3,18 

50 IF n=l THEN sa=120 

60 IF n=2 THEN sa=135 

70 IF n=3 THEN sa=150 

80 IF n=l THEN ORIGIN 0,-50,0,640,0,400 ELSE ORIGIN 

0,0,0,640,0,400 
90 DIM cx<5) ,cy<5) ,r<5) , lc(5) 
100 DIM np(5) 

110 DIM px%<5,81) ,py%<5,81> 
120 st = l : ex ( 1 ) =320: cy ( 1 ) =200: r < 1 ) =80 
130 FOR st=l TO 4 
140 r <st+l)=r <st>/2 
150 NEXT st 
160 FOR st=l TO 5 
170 lc<st)=0:np<st)=0 
180 np<st)=np(st)+l 

190 px%<st,np<st> )=r <st)*SINUc<st> ) 
200 py%<st,np<st> ) =r <st >*COS< lc <st > ) 
210 lc<st)=lc(st)+360/r<st) 
220 IF lc<st)<360 THEN 180 
230 px%<st,np<st)+l)=px%<st,l> 
240 py%<st,np<st)+l)=py%<st,l) 
250 NEXT st 

260 CLS:cj=REMAIN<l) : c j =REMAIN <2) 
270 cj=REMAIN<3) : INK l,2:st=l 
280 GOSUB 350 
290 LOCATE 1,1 
300 EVERY 25,1 GOSUB 510 
310 EVERY 15,2 GOSUB 550 
320 EVERY 5,3 GOSUB 590 (Continiia en la pagina siguiente.) 
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330 ERASE cx,cy,r, lc, np, px%, py%: NEXT 

340 GOTO 340 

350 cx%=cx< st) :cy%=cy(st) : lc(st)=0 

360 FOR x%=l TO np<st) 

370 MOVE cx%,cy% 

380 DRAW cx%+px%(st,x%) , cy%+py% <st , x%) , l+(st MOD 3) 

390 DRAW cx%+px%(st,x%+l),cy%+py%(st,x%+l), 1+Yst MOD 3) 

400 NEXT x% 

410 IF st=5 THEN RETURN 

420 lc(5t)=0 

430 cx(st+l)=cx(st)+1.5*r <st)*SIN<sa+lc(st) ) 

440 cy(st+l)=cy(st)+1.5*r <st)*COS<sa+lc(st) ) 

450 st=st+l 

460 GOSUB 350 

470 st=st-l 

480 lc(st)=lc(st)+2*sa 

490 IF Uc(st) MOD 360) <>0 THEN 430 

500 RETURN 

510 ik(l)=l+RND*25 

520 IF ik(l)=ik<2) 

530 INK 1, ik(l) 

540 RETURN 

550 ik(2)=l+RND*25 

560 IF ik(2)=ik(l) 

570 INK 2, ik<2) 

580 RETURN 

590 ik(3)=l+RND*25 

600 IF ik<3)=ik<l) 

610 INK 3, ik<3) 

620 RETURN 



OR ik<l)=ik<3) THEN 510 



OR ik(2)=ik(3) THEN 550 



OR ik<3)=ik(2) THEN 590 
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Parte 9: Sonidos 



El ordenador emite su sonido a trav6s del altavoz que tiene incorporado. Si esta uti- 
lizando la unidad modulador/fuente de alimentaci6n MP2 y un televisor domestico, 
baje el mando de volumen del televisor al minimo. 

El nivel de sonido se ajusta con el mando VOLUME que hay en la cara derecha del 
ordenador. Tambien es posible enviar el sonido a un amplificador externo, por medio 
de la salida marcada con STEREO en el ordenador. De esta forma se puede oir el 
sonido en estereofonia, utilizando los altavoces o los auriculares de un equipo de alta 
fidelidad. En la parte 2 de este 'Curso de introduction' se explica c6mo tomar las se- 
ftales de la salida STEREO del ordenador. 



La instruction SOUND 

La instruction SOUND tiene siete parametros. Los dos primeros son imprescindibles, 
mientras que los restantes son opcionales. La forma de la instruction es la siguiente: 

SOUND <siUacioii it cualH> , (ptrioio it tono) , <Juraci(M> , <voluwii> , 
(Mvolvente it volweiO , <«ivolvMte it tono> , <periodo it niio) 

Parece complicada a primera vista, pero veremos que en realidad no lo es tanto cuan- 
do hayamos analizado el significado de todos los parametros. Asi pues, estudiemos 
los parametros uno por uno. 



Situation de los canales 

Para no complicar las cosas, por ahora nos limitaremos a considerar este parametro 
como simple selector de canales. Hay tres canales de sonido; de momento solo utili- 
zaremos el numero 1 . 



Periodo de tono 

El periodo de tono es la forma tecnica de especificar el tono del sonido; en otras pa- 
labras, de identificar la nota (DO, RE, MI, FA, etc.). Cada nota tiene un numero de 
identification, que es el periodo de tono. Si consulta el capitulo 'Para su referen- 
da...', comprobara que la nota DO media tiene un periodo de tono de 478. 
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Reinicialice el ordenador con [CTRL], [SHIFT] y [ESC] y luego escriba: 

10 sound 1,478 
run 

Acaba de oir la nota DO media, que ha sonado durante 0.2 segundos. 

£No ha oido nada? Suba el control de volumen del ordenador y vuelva a ejecutar el 
programa. 



Duration 

Este parametro especifica la duracion del sonido. Las unidades son de centesimas de 
segundo (0.01 s). Si no se especifica duraci6n, el ordenador toma el valor implicito 
para este parametro, que es 20; por eso la nota que acaba de oir ha durado 0.01*20=0.2 
segundos. 

Si queremos que la nota dure 1 segundo, el valor del parametro tendra que ser 1 00; 
para dos segundos, 200; etc. Escriba lo siguiente: 

10 sound 1,478,200 
run 

Acaba de oir la nota DO media con duracion de 2 segundos. 



Volumen 

Este parametro especifica el volumen inicial de la nota. El margen de valores va de 
a 1 5. El 'volumen' es el minimo; el 1 5 es el maximo. Si no se especifica ningun 
valor, el ordenador toma el implicito, que es 1 2. Escriba lo siguiente: 

10 sound 1,478,200,5 
run 

Fijese en el volumen de este sonido y comparelo con el siguiente: 

10 sound 1,478,200,15 
run 

Como puede observar, es mucho mas intenso que el anterior. 



Envolvente de volumen 

Se puede hacer que el volumen de una nota no sea constante, sino que varie con el 
tiempo mientras la nota esta sonando. Para especificar la forma de variaci6n del vo- 
lumen en funcion del tiempo necesitamos otra instruction: ENV. De hecho, podemos 
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definir varias envolventes de volumen distintas, cada una de las cuales tendra su nu- 
mero de referenda. Asi, si hemos definido la envolvente de volumen numero 1 , po- 
demos utilizarla poniendo en la instruction SOUND el numero 1 como parametro 
de envolvente de volumen. En seguida explicaremos como se definen las envolventes 
de volumen. 



Envolvente de tono 

Se puede hacer que el tono de una nota no sea constante, sino que varie con el tiempo 
mientras la nota esta sonando. Para especificar la forma de variation del tono en fun- 
cion del tiempo necesitamos otra instruction: ENT. De hecho, podemos definir varias 
envolventes de tono distintas, cada una de las cuales tendra su numero de referenda. 
Asi, si hemos definido la envolvente de tono numero 1 , podemos utilizarla poniendo 
en la instruction SOUND el numero 1 como parametro de envolvente de tono. En 
seguida explicaremos como se definen las envolventes de tono. 



Ruido 

El periodo de ruido es el ultimo parametro de la instruction SOUND. Las caracte- 
risticas del ruido se pueden variar eligiendo para este parametro un valor comprendi- 
do entre 1 y 31 . Ponga el valor 2 en la instruction SOUND y escuche el efecto. Pon- 
ga luego el numero 27 y observe la diferencia. Escriba: 

10 sound 1,478,200, 15, , ,2 

En esta instruction hemos dejado en bianco dos parametros (...) porque aiin no he- 
mos creado ninguna envolvente de volumen ni de tono. 



Definition de una envolvente de volumen 

La instruction que define envolventes de volumen es ENV. En su version mas sencilla, 
esta instruction lleva 4 parametros. Su forma es la siguiente: 

ENV <nuiero de envolvente) , (nuiero de escalones) , (altura de cada escalon) , 
(duration de cada escalon) 

Como siempre, estudiemos los parametros uno por uno. f 



Numero de la envolvente 

Es el numero de referencia (entre y 1 5) por el que la invocaremos en la instruction 
SOUND. 
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Numero de escalones 

Este parametro especifica en cuantas etapas queremos que la nota evolucione antes 
de terminar. Por ejemplo, si la nota ha de durar 10 segundos, podemos dividirla en 
10 etapas de 1 segundo cada una; en tal caso, el parametro 'numero de escalones' ten- 
dria el valor 1 0. 

El margen de este parametro es de a 1 27. 



Altura de cada escalon 

En cada etapa, el volumen puede variar con respecto al nivel anterior en un numero 
de unidades comprendido entre y 15. Estos 16 niveles de sonido son los mismos 
que se definen en la instruction SOUND. Sin embargo, el margen del parametro 'al- 
tura de escalon' es de -128 a +127; el nivel del volumen vuelve a cada vez que 
sobrepasa el 15. 



Duration de cada escalon 

Este parametro especifica la duration de cada escalon en unidades de centesimas de 
segundo. El margen de valores de a 255; esto significa que la duration maxima de 
cada escalon es de 2.56 segundos (el se considera como 256). 

Por consiguiente, el producto del parametro 'numero de escalones' por el parametro 
'duraci6n de cada escalon' no deberia ser mayor que el parametro 'duration' especi- 
ficado en la instruction SOUND. De lo contrario, el sonido terminara antes de que 
se hayan completado todos los escalones de la envolvente. (En ese caso el ordenador 
ignora el resto del contenido de la envolvente.) 

Analogamente, si la duration especificada en SOUND es mayor que la impuesta por 
el producto de 'numero de escalones' por 'duration de cada escalon', la nota conti- 
nuara sonando aunque se hayan terminado los escalones de la envolvente de volumen, 
y lo hara al nivel del ultimo escal6n de la envolvente. 

Para practicar con las envolventes de volumen, pruebe el siguiente programa: 



10 env 1, 10, 1,100 

20 sound 1,284,1000,1,1 

run 



La linea 20 especifica un sonido con numero de tono igual a 284 (LA international), 
duration de 10 segundos, volumen inicial igual a 1 y envolvente de tono numero 1 , 
la cual consiste en 10 escalones de altura 1 y duration 1 segundo (100x0.01). 
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Pruebe las siguientes formas de la linea 10 y trate de escuchar el efecto de las diferen- 
tes envolventes de volumen: 

10 env 1,100,1,10 

10 env 1,100,2,10 

10 env 1,100,4,10 

10 env 1,50,20,20 

10 env 1,50,2,20 

10 env 1 ,50, 15, 30 

Finalmente, pruebe la siguiente: 

10 env 1,50,2, 10 

Observe que el volumen permanece constante durante la segunda mitad de la nota. 
Esto ocurre porque el numero de escalones es 50 y la duration de cada uno de ellos 
es 0,1 s, con lo que la duration total de la envolvente es de solamente 5 segundos, 
mientras que en la instrucci6n SOUND se especifica una duration de 10 segundos. 

Haga usted otras pruebas y trate de generar sonidos diferentes. 

Si quiere crear envolventes mas complejas, puede repetir los tres ultimos parametros 
de la instruction ENV para definir otras 'secciones' de la envolvente (hasta un maxi- 
mo de 4 secciones). 



Definition de una envolvente de tono 

La instruction que define envolventes de tono es ENT. En su version mas sencilla, 
esta instruction Ueva 4 parametros. Su forma es la siguiente: 

ENT < liner d de envolvente) , <nuiero de escalones) , <altura de cada escalon) , 
(duracion de cada escalon) 

Estudiemos los parametros uno por uno 



Numero de la envolvente 

Es el numero de referenda (entre y 1 5) por el que la invocaremos en la instruction 
SOUND. 



Numero de escalones 

Este parametro especifica en cuantas etapas queremos que la nota evolucione antes 
de terminar. Por ejemplo, si la nota ha de durar 10 segundos, podemos dividirla en 
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1 etapas de 1 segundo cada una; en tal caso, el parametro 'numero de escalones' ten- 
dria el valor 1 0. 

El margen de este parametro es de a 239. 



Periodo de tono de cada escalon 

En cada etapa, el tono puede variar con respecto al de la anterior en un niimero de 
unidades comprendido entre -1 28 y +1 27. Las variaciones negativas representan au- 
mento del tono (tono mas agudo); las variaciones positivas reducen el tono (tono mas 
grave). El valor minimo del periodo de tono es 0. Tengalo en cuenta cuando progra- 
me envolventes de tono. En el capitulo 'Para su referenda ...' se da la lista completa 
de los periodos de tono. 



Duration de cada escalon 

Este parametro especifica la duration de cada escal6n en unidades de centesimas de 
segundo. El margen de valores es de a 255; esto significa que la duraci6n maxima 
de cada escalon es de 2.56 segundos (el se considera como 256). 

Por consiguiente, el producto del parametro 'numero de escalones' por el parametro 
'duration de cada escalon' no deberia ser mayor que el parametro 'duration' especi- 
ficado en la instruction SOUND. De lo contrario, el sonido terminara antes de que 
se hayan completado todos los escalones de la envolvente. (En ese caso el ordenador 
ignora el resto del contenido de la envolvente.) 

Analogamente, si la duration especificada en SOUND es mayor que la impuesta por 
el producto de 'numero de escalones' por 'duration de cada escalon', la nota conti- 
nuara sonando aunque se hayan terminado los escalones de la envolvente de tono, y 
lo hara con el tono correspondiente al de la ultima etapa de la envolvente. 

Para practicar con las envolventes de tono, pruebe el siguiente programa: 



10 ent 1, 100,2,2 

20 sound 1,284,200,15, ,1 

run 



La linea 20 especifica un sonido con numero de tono igual a 284 (LA international), 
duration de 2 segundos, volumen inicial igual a 1 5 (el maximo), sin envolvente de 
volumen (parametro en bianco „) y con envolvente de tono numero 1 . 

En la linea 10 se define la envolvente de tono, la cual consiste en 100 escalones de 
altura 2 (reduction del tono) y duration 0.02 (2x0.01) segundos. 
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Pruebe las siguientes formas de la linea 10 y trate de escuchar el efecto de las diferen- 
tes envolventes de tono: 

10 ent 1,100,-2,2 
10 ent 1,10,4,20 
10 ent 1, 10,-4,20 

Cambie ahora la instruction sound y la envolvente de tono escribiendo: 

10 ent 1,2,17,70 

20 sound 1,142,140,15, , 1 

30 goto 10 

run 

Pulse [ESC] dos veces para detener el programa. 

Se puede combinar las instrucciones ENV, ENT y SOUND para crear sonidos mas 
complejos. Empiece con el siguiente programa: 

10 env 1, 100, 1,3 

20 ent 1,100,5,3 

30 sound 1,284,300,1,1,1 

run 

Cambie la linea 20 por la siguiente: 

20 ent 1,100,-2,3 
run 

Y finalmente pruebe el siguiente programa: 

10 env 1,100,2,2 

20 ent 1,100,-2,2 

30 sound 1,284,200,1,1,1 

run 

Si quiere crear envolventes mas complejas, puede repetir los tres ultimos parametros 
de la instruction ENT para definir otras 'secciones' de la envolvente (hasta un maxi- 
mo de 4 secciones). 

Haga usted mismo otras pruebas. Por ejemplo, incluya ruido en la instruction 
SOUND y aftada mas secciones a las envolventes de volumen y de tono. 

En el capitulo 'Lista completa de las palabras clave del BASIC del AMSTRAD 
CPC664' explicaremos con todo detalle las diversas instrucciones de sonido. Si le in- 
teresan los aspectos mas melodiosos del sonido, consulte la section 'El sonido de la 
musica' del capitulo titulado 'Cuando usted guste ...'. 
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Parte 10: Introduction a los sistemas 
operativos AMSDOS y CP/M 

iQue es AMSDOS? 

Cuando se enciende o reinicializa el ordenador, este queda sometido al control de 
AMSDOS. Estas letras son abreviaturas de 'AMStrad Disc Operating System' (siste- 
ma operativo de disco AMSTRAD). AMSDOS dispone de las siguientes funciones 
de manejo de ficheros: 

load "nombre-f i " 

run "nombre-f i " 

save "nombre-f i " 

chain "nombre-f i" 

merge " nombre-f i" 

chain merge "nombre-f i" 

open in " nombre-f i" 

openout "nombre-f i" 

closein 

closeout 

cat 

input #9 

1 ine input #9 

list #9 

print #9 

write #9 

asi como de diversas ordenes para el manejo de discos. 

Estas ordenes son las llamadas ordenes externas, que se escriben precedidas del sim- 
bolo | (tecla @ con [SHIFT]). 

Las ordenes externas mas utilizadas son las siguientes: 

!a 

ib 

i tape (que se pue<e suMivilir en ! tape, in y ! tape, out) 

Idisc (que se puede suMividir en i disc, in y ! disc, out) 

Las ordenes [a y | b s61o se utilizan cuando se tiene conectada la segunda unidad de 
disco; indican a la maquina con que unidad debe realizar las ordenes que se den en 
lo sucesivo. 
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Por ejemplo, las 6rdenes 



load "nombre-fi" 

piden al ordenador que cargue el programa especificado leyendolo del disco que esta 
insertado en la unidad A. 

Si no se especifica | a ni | b, el ordenador opera con la unidad implicita, que es la A. 

Si solo se esta utilizando la unidad integrada en el ordenador, este la considera como 
unidad A, y no es necesario especificar |a ni |b. De hecho, si en esa situaci6n se le 
da al ordenador la orden |b, 6ste responde con el mensaje: 

Drive B: disc missing 
Retry, Ignore or Cancel 



;C6mo se utiliza la cinta? ... 

La orden |tape indica al ordenador que en lo sucesivo debe realizar todas las funcio- 
nes de manejo de ficheros (load, save, etc.) con el magnetofono de cassette externo 
en lugar de con el disco. Si no se especifica |tape, el ordenador trabaja con el medio 
de archivo de datos implicito, que es el disco. 

Para volver a trabajar con el disco despues de especificar |tape, escriba la orden 
| disc. 

Tambien puede ocurrir que se desee, por ejemplo, leer de la cinta y grabar en disco. 
Para ello sirve la orden 

! tape. in 

que indica al ordenador que en lo sucesivo debe realizar las operaciones de lectura 
con la cinta, para seguir realizando las de escritura con el disco. 

Analogamente, para leer datos del disco y grabarlos en cinta, se da la orden | disc. in, 
para cancelar la anterior | tape. in, y luego | tape. out, para dirigir la salida de datos 
hacia la cinta. 

Asi pues, | tape. in y | tape. out son opuestas a | disc. in y | disc. out, respectiva- 
mente, y viceversa. 

En los capitulos titulados 'Discos y cintas' y ' AMSDOS y CP/ M' se puede encontrar 
mas amplia information sobre todas las posibilidades de transferencia de datos entre 
ordenador, disco y cinta. 
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En la parte 7 de este 'Curso de introducci6n' el lector ha aprendido a inicializar discos 
nuevos sirvi6ndose del disco maestro de CP/ M, y tambi6n a copiar programas de un 
disco a otro. A la vista de la description que acabamos de hacer de las 6rdenes 

Itape Idisc itape.in ! tape. out idisc.in idisc.out !a !b 

deberia ser capaz de cargar y grabar programas de disco o de cinta, utilizando la uni- 
dad A o la B. 

Otras ordenes externas son las siguientes: 

■dir idrive !era Iren ! user 
Las explicaremos en el capitulo titulado 'AMSDOS y CP/M'. 



Copia de discos con CP/M 



El contenido completo de un disco se puede copiar a otro utilizando el disco del sis- 
tema CP/ M. No es necesario para ello tener conectada la segunda unidad de disco, 
gracias a la funcion DISCCOPY. 

Sin embargo, si dispone de la segunda unidad, le sera mas facil y rapido realizar las 
copias con COPYDISC. 



Copias con DISCCOPY 

Inserte el disco de CP/ M y escriba la orden 
! cpm 

Cuando aparezca el mensaje A>, escriba disccopy. El ordenador le pedira que haga 
lo siguiente: 

Please insert source disc into drive A then press any key 

(Tor favor, introduzca el disco origen en la unidad A y luego pulse una tecla cual- 
quiera.') Extraiga el disco de CP/M e inserte el disco que desee copiar. Si lo que quie- 
re es hacer una copia de trabajo del disco de CP/ M, dejelo en la unidad. 

Una vez introducido el disco origen y pulsada una tecla, el ordenador emitira el si- 
guiente mensaje: 

Copying started 
Reading track to 7 
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('Ha empezado la copia. Leyendo pistas a 7.') Unos segundos mas tarde el ordena- 
dor le pide que: 

Please insert destination disc into drive A 
then press any key 

('Por favor, introduzca el disco destino en la unidad A y luego pulse una tecla cual- 
quiera.') Usted debe extraer el disco origen e introducir el disco en el que quiere copiar. 

Tenga en cuenta que el proceso de copia 'escribe encima' del contenido anterior del 
disco destino. 

Si el disco destino no esta inicializado, o lo esta incorrectamente, el proceso de copia 
lo inicializara automaticamente. 

Una vez introducido el disco destino y pulsada una tecla, el ordenador emitira el 
mensaje: 

Writing track to 7 

y luego le pedira que vuelva a introducir el disco origen para leer las pistas 8 a 15. El 
ciclo de lectura/escritura se repite, 8 pistas de cada vez, hasta terminar con la ultima, 
que es la numero 39. En ese momento el ordenador le preguntara: 

Do you want to copy another disc (Y/N) : 

('Quiere copiar otro disco (S/N):'.) Pulse Y si quiere copiar otro disco; pulse N en 
caso contrario y siga las nuevas instrucciones. 



Copias con COPYDISC 



La funci6n COPYDISC solo se puede utilizar si se tiene conectada la segunda unidad 
de disco. Permite copiar el contenido completo de un disco a otro, con la ventaja so- 
bre DISCCOPY de que no es necesario cambiar los discos durante el proceso de copia. 

Si ha leido y comprendido el funcionamiento de DISCCOPY, puede utilizar COPY- 
DISC de la siguiente manera: 

Inserte el disco de CP/ M y escriba: 

i cpm 
Cuando aparezca el mensaje A>, escriba: 

copydisc 
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Siga las instrucciones que aparezcan en la pantalla y el contenido del disco origen se 
copiara en el de destino, en bloques de 8 pistas, hasta concluir con la pista numero 
39. COPYDISC tambien realiza una initialization automatica del disco destino y sir- 
ve para haer una copia de trabajo del disco de CP/ M. 



Comparacion del contenido de dos discos 

El sistema CP/M permite comparar dos discos para detectar si se ha producido algun 
error en el proceso de copia. 

Si no tiene conectada la segunda unidad de disco, inserte el disco de CP/ M y escriba: 

discchk 

Siga las instrucciones que aparezcan en la pantalla. El ordenador compara el disco 
destino con el disco origen. Cuando detecta alguna diferencia, emite el siguiente 
mensaje: 

Failed to verify destination disc correctly: 
(track x sector y) 

De lo contrario, el proceso de comprobacion continua, en bloques de 8 pistas, hasta 
concluir con la pista 39. Si se ha detectado algun error, el ordenador emite un mensaje 
WARNING: antes de preguntarle si desea hacer mas comparaciones. 

Si tiene conectada la segunda unidad de disco, es preferible que utilice la funcion 
CHKDISC. Funciona de forma analoga a DISCCHK, pero no requiere el intercam- 
bio de discos durante el proceso de comparacion. Para usar CHKDISC, introduzca 
el disco de CP/ M, escriba: 

chkdisc 

y siga las instrucciones. 



Interruption de funciones 



Todas las funciones que se realizan con el disco de CP/ M pueden ser interrumpidas 
pulsando la tecla C en combination con [CTRL]. Al hacerlo, el ordenador vuelve al 
modo directo de CP/M (denominado 'modo directo de consola'). 

Como ejemplo, inserte el disco de CP/M y escriba: 
disccopy 
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Cuando el ordenador le pida que introduzca un disco, pulse [CTRL]C. La funcion de 
copia ha quedado interrumpida. 

En el capitulo titulado 'AMSDOS y CP/M' daremos mas amplia information sobre 
DISCCOPY, COPYDISC, DISCCHK y CHKDISC, asi como sobre FORMAT y 
otras funciones de CP/M. 

Finalmente, asegurese de que ha tenido en cuenta las advertencias que hemos hecho 
al principio del manual, en la section titulada 'IMPORT ANTE': 

NOTAS DE INSTALAClON 5, 6 y 7 

NOT AS DE OPERAClON 1, 2, 3, 4, 5, 6, 7, 8 y 9 

Aqui termina este 'curso de introduction' al CPC664. Es de esperar que usted haya 
aprendido para que sirve la mayor parte de las teclas, como utilizar las instrucciones 
mas sencillas de BASIC, c6mo preparar un disco virgen, como realizar las funciones 
mas elementales de manejo de discos, tales como LOAD, SAVE y CAT, y como uti- 
lizar unas cuantas ordenes de AMSDOS y CP/M. 

En el resto del manual abordaremos cuestiones mas avanzadas. Estudiaremos en de- 
talle el funcionamiento de la unidad de disco, con secciones dedicadas a AMSDOS y 
CP/M, y daremos una introduction a un nuevo lenguaje: el Dr. LOGO de Digital 
Research. 
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Capitulo 2 

D espues de la introduccion... 



Pues bien. Usted ya ha leido el 'Curso de introduccion' y tiene ante si el ordenador 
encendido. Ya sabe como hacer que el ordenador repita una tarea varias veces con la 
instruccion FOR ... NEXT y como hacerle realizar operaciones de forma condicional 
con la instruccion IF ... THEN ... 

Pero pronto empezara a cansarse de ver su nombre repetido hasta la saciedad en la 
pantalla y querra aprender algo de informatica mas seria, algo util o divertido. En el 
capitulo siguiente damos la lista de todas las palabras clave del BASIC del AMS- 
TRAD, junto con su sintaxis, es decir, la forma de utilizarlas. Con estas herramientas 
en la mano, el unico limite a lo que puede obtener del ordenador lo fijara su 
imagination. 

Si no ha utilizado antes ningun otro ordenador, es probable que la palabra 'progra- 
macion' le suene amenazadora. jNo le tenga miedo! Programar es mas facil de lo que 
usted cree, y desde luego mucho mas facil de lo que la jerga tecnica da a entender. 

No se deje asustar por BASIC y vera que pronto empieza a disfrutar de la programa- 
ci6n y de los frutos de su esfuerzo. Programar puede llegar a ser un ejercicio muy gra- 
tificante, en particular para el principiante que se pone a experimentar con la maqui- 
na y el lenguaje. Recuerde siempre que, a exception del riesgo de borrar accidental- 
mente el disco de CP/M, nada que usted haga en el teclado puede dafiar el ordena- 
dor; siempre vale la pena intentar algo nuevo. 



^Por donde empezamos? 



En programaci6n, como en muchas otras actividades, lo mas dificil es empezar. Sin 
embargo, lo peor que puede hacer es lanzarse directamente al teclado sin antes pensar 
para que. 

El primer paso en el desarrollo de un programa debe ser establecer claramente que se 
pretende que el programa haga y como se quiere que presente los resultados en la 
pantalla. 

Decidido esto, se puede empezar a escribir un programa que realice las funciones de- 
seadas, preocupandose siempre de que el programa discurra suavemente de principio 
a fin, con el minimo numero de saltos posible. Un buen programa debe ser facil de 
leer una vez listado, no un lio indescifrable que haga imposible la detection de errores. 

Afortunadamente, BASIC es un lenguaje muy tolerante que facilita la depuration de 
los programas emitiendo mensajes que indican donde esta el error y en que consiste. 
Ademas, hace posible la ampliation de los programas, pues permite intercalar lineas 
nuevas entre las ya existentes. 
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Un programa sencillo 

Manos a la obra. Vamos a escribir un programa que controle y mantenga un fichero 
con los nombres y numeros de telefono de nuestros amigos. Le llamaremos 'guia de 
telefonos'. Para respetar las reglas que hemos enunciado, '<,que debe hacer el progra- 
ma?'; '£c6mo debe presentar los resultados en la pantalla?' 

El programa debe permitirnos almacenar 100 nombres y numeros de telefono. Cuan- 
do queramos averiguar un niimero de telefono, escribiremos el nombre y el ordenador 
nos dara el niimero. Ademas, por si no recordamos c6mo habiamos escrito algiin nom- 
bre, el programa debe ser capaz de exhibir toda la informacion en la pantalla. Dicho 
sea de paso, esto ya nos hace empezar a pensar en la forma de presentaci6n de los 
resultados en la pantalla. 

De acuerdo, vamos al teclado. Empezaremos por escribir el nombre del programa: 

10 REM guia de tele-fonos 

No es imprescidible dar nombre a todos los programas, pero comprobara cuando ten- 
ga grabados unos cuantos que es muy util poder averiguar de un golpe de vista cual 
es cual. 

Lo siguiente que necesitamos es poder captar por el teclado (con INPUT) una cadena 
de caracteres (quiza un nombre) para luego poder asignarlo a una variable. A la va- 
riable que represente el nombre le llamaremos NOMBRE$. Lo mismo se puede hacer 
con el niimero de telefono; a la variable le llamaremos TEL$. 

iRecuerda todavia los programas del 'Curso de Introduction*? En algunos de ellos uti- 
lizabamos la instruction INPUT para captar los valores de las variables. Escribamos: 

20 INPUT "Escriba el nombre: "; NOMBRE* 

30 INPUT "Escriba el numero de tele-f ono: " ; TEL* 

run 

En respuesta al programa podemos escribir un nombre (por ejemplo, Juan) y luego 
un numero de telefono (por ejemplo, 923 23371 7). 

El programa ha almacenado la informacion que le hemos suministrado, pero no ha 
escrito ningiin resultado en la pantalla. Asi pues, en algun lugar del programa nece- 
sitaremos instrucciones del tipo 

PRINT NOMBRE* ... y ... PRINT TEL* 

con las que recuperemos los valores de las variables. 
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Algo falla, iverdad? Dijimos que nuestro programa deberia ser capaz de almacenar 
100 nombres con sus numeros de telefono; si seguimos por este camino, necesitaremos 
200 instrucciones INPUT, cada una con un nombre de variable distinto, y 200 instruc- 
tions PRINT para escribir la lista en la pantalla. No se inquiete; los ordenadores tie- 
nen Un recurso que permite manejar con facilidad grandes cantidades de datos: se tra- 
ta de las 'listas'. Una lista es una variable que puede representar, con un solo nombre 
(tal como NOMBRE$), un grupo de datos (en nuestro caso necesitamos 100) que se 
identifican por un indice. Cuando queramos referirnos a un dato concreto, lo citare- 
mos por el nombre de la variable seguido del indice entre parentesis; por ejemplo, 
NOMBRE$(27), donde 27 es el indice y NOMBRE$ es lo que denominamos va- 
riable indexada. Si como indice ponemos una variable numerica, NOMBRE$(x), en 
lugar de un numero concreto, podemos manejar la lista completa de datos, del 1 al 
100, variando el valor de x dentro de un bucle FOR ... NEXT (v. g., FOR x=1 TO 
100). A medida que se va incrementando el valor de x, el indice de NOMBRE$ va 
sefialando los diferentes elementos de la lista. 

En nuestro programa necesitamos dos listas, NOMBRE$ y TEL$, cada una con ca- 
pacidad para 100 elementos. Pero tenemos que informar al ordenador de nuestras in- 
tenciones, y para ello debemos dimensionar las listas con la instruction DIM. Cam- 
biemos las lineas 20 y 30: 

20 DIM NOMBRE* (100) 
30 DIM TEL* (100) 

Ahora ya podemos escribir el tramo del programa que nos va a permitir introducir 
nombres y numeros de telefono. Afiada las siguientes lineas: 

40 FOR x=l TO 100 

50 INPUTS" Nombre "5 NOMBRE* (x) 

60 INPUT " Tele-fono ";TEL*(x) 

70 NEXT 

run 

Pero no vamos a introducir los 100 nombres de una vez, y ademas la forma de pre- 
sentaci6n en la pantalla es muy desordenada. Tenemos que organizarnos mejor. En 
primer lugar, antes de captar un nombre, vamos a librarnos de todo el texto superfluo 
que tenemos en la pantalla: 

45 els 

iQue podemos hacer para decirle al ordenador que de momento ya no queremos in- 
troducir mas datos? Podemos detener el programa pulsando [ESC] dos veces, pero 
cuando volvamos a teclear run perderemos todos los datos introducidos anteriormente. 

fista es la solution. Cada vez que el programa capte un nuevo nombre, haremos que 
examine el dato introducido para ver si consta al menos de un caracter o si, por el 
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contrario, es la 'cadena vacia'. Si lo es, haremos que suspenda la captaci6n de datos. 
Aiiada lo siguiente: 

55 IF NOMBRE* ( x ) = " " THEN 80 

80 PRINT "Fin de la entrada de datos" 

Tambien necesitamos que el ordenador indique al usuario que debe hacer para sus- 
pender la introduction de datos. Aiiada, pues, la siguiente linea: 

47 PRINT "Pulse CENTER! para terminar" 

Ahora vamos a escribir las instrucciones que exhiban en la pantalla la information 
almacenada. Primero la lista completa: 

90 FOR x=l TO 100 

100 PRINT NOMBRE*(x);" " ;TEL*(X) 

110 NEXT 

Otra vez nos ocurre que el programa no sabe donde pararse y continua hasta el cen- 
tesimo elemento. Esto tiene facil arreglo: 

95 IF NOMBRE* <x)="" THEN 120 
120 PRINT "Fin de la lista" 

La linea 95 comprueba si NOMBRE$(x) es la cadena vacia; si lo es, concluye la es- 
critura de la lista saltando a la linea 120. 

Atendamos a los otros requisitos que habiamos formulado al idear el programa. Ne- 
cesitamos unas instrucciones que busquen en la lista un nombre introducido por el 
usuario. Escriba lo siguiente: 

130 INPUT "Buscar " ; BUSCA* 

140 FOR x=l TO 100 

150 IF INSTR (NOMBRE* (x) ,BUSCA*)=0 THEN 180 

160 PRINT NOMBRE*(x);" " ;TEL*(x) 

170 END 

180 NEXT 

190 PRINT"No lo encuentro" 

En la linea 150 hay una instruction nueva: INSTR. Esta instruction determina si la 
cadena literal BUSCA$ (que es el nombre que estamos buscando, captado en la linea 
130) esta contenida en NOMBRE$(x). Si no lo esta, INSTR genera el valor 0, y en- 
tonces el programa salta a la linea 180 para probar con el siguiente valor de x. Si el 
programa ha examinado sin exito todos los elementos de la lista, continua en la linea 
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190, donde informa de lo que ha ocurrido. En cambio, si encuentra el nombre, INSTR 
produce un valor mayor que 0, lo que permite que el programa pase de la linea 150 
a la 160 para escribir el nombre y el niimero de telefono y luego terminar con la ins- 
truction END de la linea 170. 

Como ve, nuestro. programa avanza muy deprisa, pero todavia nos queda mucho por 
hacer. Meditemos un poco sobre los inconvenientes de este programa, empezando por 
el orden en que funciona: primero capta la information, despues la escribe completa 
en la pantalla, luego busca un nombre concreto. 



iQue ocurre si ...? 



Precisamente. iQue ocurre si no queremos que los acontecimientos se produzcan en 
ese orden? Podriamos querer consultar un telefono que introdujimos ayer. O podria- 
mos querer ampliar la lista con otros nombres. Esto nos plantea nuevos problemas, 
para los que tenemos que encontrar solution. Despues de todo, en esto es en lo que 
consiste la programacion. Ya hemos dicho que BASIC es muy amable y nos permite 
rectificar e incluir nuevas instrucciones con gran facilidad; pero un buen programador 
habria pensado en todo esto de antemano. 

Otro grave inconveniente del programa consiste en que las listas quedan almacenadas 
solamente en la memoria del ordenador, la cual se borra cada vez que se ejecuta un 
programa. De poco nos serviria este programa si tuvieramos que escribir todos los da- 
tos cada vez que lo ejecutasemos; asi pues, necesitamos que el programa pueda grabar 
los valores de los elementos de NOMBRE$ y TEL$ antes de que apaguemos el or- 
denador, y tambieh que pueda cargar los datos cada vez que lo ejecutemos. 



Soluciones 

El primero de los problemas mencionados (el del orden de ejecucion) se resuelve ha- 
ciendo que el programa de la posibilidad de elegir entre las funciones que sabe reali- 
zar. De un programa de este tipo se dice que esta 'controlado por menu' pues, en efec- 
to, ofrece un menu de opciones de entre las cuales se elige la deseada. Si alguna vez 
ha sacado dinero de un cajero automatico, ya ha utilizado un programa de ordenador 
controlado por menu. Aiiadamos un menu a nuestro programa: 

32 PRINT" 1. Introd. datos" 

33 PRINT"2. Listado" 

34 PRINT"3. Busqueda" 

35 PRINT"4. Grabar de datos" 

36 PRINT'S. Cargar datos" 

37 INPUT "Elija una opcion (1-5) ";el 

38 ON el GOSUB 40,90,130 
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85 RETURN 
125 RETURN 
170 RETURN 
200 RETURN 

Hemos hecho que el programa escriba la lista de opciones y que capte la election del 
usuario mediante una instruction INPUT para asignarla a la variable el. La instruc- 
ci6n ON el GOSUB de la linea 38 funciona de la siguiente forma: si el=1 , invoca la 
subrutina de la linea 40; si el=2, invoca la subrutina de la linea 90, etc. 

Puesto que todas las funciones esta ahora en subrutinas (controladas por la instruc- 
tion ON el GOSUB), tienen que terminar en una instruction RETURN. De ahi que 
hayamos incluido las lineas 85, 125, 170 y 200. 

^Recuerda para que sirve RETURN? Hace que BASIC retorne de la subrutina a la 
instrucci6n siguiente a aquella que invoc6 la subrutina. En nuestro caso, el punto de 
retorno es la instruction siguiente a la linea 38, que es la linea 40. Si dejamos que esto 
ocurra, el programa entra en la subrutina de 'Introduction de datos'. Para impedirlo 
anadimos la linea 

39 GOTO 32 

que reconduce el programa al menu. 

Ejecute el programa y vea cuanto hemos progresado. 

Bien; vamos a echar un vistazo al listado. (Detenga el programa pulsando [ESC] dos 
veces.) Escriba: 

LIST 

Esto es lo que tenemos por el momento: 

10 REM guia de tele-fonos 
20 DIM NOMBRE*(100) 
30 DIM TEL* (100) 

32 PRINT-1. Intr-od. datos" 

33 PRINT-2. Listado" 

34 PRINT"3. Busqueda" 

35 PRINT"4. Grabar datos" 

36 PRINT"5. Cargar datos" 

37 INPUT "Elija una opcion (1-5) "iel 

38 ON el GOSUB 40,90,130 

39 GOTO 32 

40 FOR x=l TO 100 
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45 


CLS 






47 1 


PRINT"Pulse [ENTER] para terminal*" 


50 


INPUT;" Nombre "; 


NOMBRE* (x) 




55 


IF NOMBRE*(x)="" 


THEN 80 




60 


INPUT;" Tele+ono 


"5TEL*(x) 




70 1 


NEXT 






80 1 


PRINT "Fin de la 


entrada de dat 


OS" 


85 1 


RETURN 






90 1 


FOR x=l TO 100 






95 


IF NOMBRE* <x)="" 


THEN 120 




100 


PRINT NOMBRE*<x) 


; " " ; TEL* < x ) 




110 


NEXT 






120 


PRINT "Fin de la lista" 




125 


RETURN 






130 


INPUT "Buscar "; 


BUSCA* 




140 


FOR x=l TO 100 






150 


IF INSTR(NOMBRE*(x) ,BUSCA*)=0 


THEN 


160 


PRINT NOMBRE* (x) 


; " " 5 TEL* < x ) 




170 


END 






180 


NEXT 






190 


PRINT"No Id encuentro" 




200 


RETURN 







180 



Observe que en algunas zonas del programa las instrucciones estan muy apretadas y 
no dejan hueco para introducir otras nuevas. Reorganicemos el programa renumeran- 
do las lineas. Escriba: 

RENUM 
LIST 

El listado es ahora: 

10 REM guia de tele-fonos 

20 DIM NOMBRE* (100) 

30 DIM TEL* < 100) 

40 PRINT'l. Introd. dates" 

50 PRINT"2. ListadD" 

60 PRINT"3. Busqueda" 

70 PRINT"4. Grabar dates" 

80 PRINT"5. Cargar dates" 

90 INPUT "Elija una opcion <l-5) "5el 

100 ON el GOSUB 120,210,270 

110 GOTO 40 

120 FOR x=l TO 100 

130 CLS 
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140 PRINT"Pulse [ENTER] para terminar" 

150 INPUT;" Nombre "; NOMBRE* <x) 

160 IF NOMBRE* < x )= " " THEN 190 

170 INPUT;" Telefono ";TEL*<x) 

180 NEXT 

190 PRINT "Fin de la entrada de datos" 

200 RETURN 

210 FOR x=l TO 100 

220 IF NOMBRE*<x)="" THEN 250 

230 PRINT NOMBRE*<x);" " 5TEL*<x) 

240 NEXT 

250 PRINT "Fin de la lista" 

260 RETURN 

270 INPUT "Buscar " ; BUSCA* 

280 FOR x=l TO 100 

290 IF I NSTR (NOMBRE* <x) ,BUSCA*)=0 THEN 320 

300 PRINT NOMBRE* < x ); " »;TEL*<x) 

310 END 

320 NEXT 

330 PRINT"No Id encuentro" 

340 RETURN 

jMucho mas limpio! Pero sigamos con el programa. Ahora queremos que cada vez 
que introduzcamos un dato nuevo (nombre y numero), el ordenador lo coloque al fi- 
nal de la lista actual, en el primer lugar que encuentre vacio. En esta ocasion vamos 
a utilizar la instruction LEN para determinar la longitud de una cadena literal. Espe- 
cificaremos lo siguiente: 

Si (IF) la longitud de NOMBRE$(x) es mayor que 0, es decir, si ya hay un dato en 
ese elemento de la lista, entonces (THEN) ir a la linea 180 (que provoca el salto al 
siguiente elemento de la lista): 

135 IF LEN (NOMBRE* (x) ) >0 THEN 180 

Una solution sencilla, ^verdad? Los problemas de este tipo siempre tienen soluci6n si 
conocemos bien la lista de instrucciones y nos paramos a pensar un poco. Para casi 
todas las necesidades hay casi siempre al menos una instruction; cuanto mayor es la 
experiencia en programacion, mas inmediatas son las soluciones. 

Vamos con otro requisito del programa: grabar los valores de las variables para poder 
cargarlos mas tarde. En la parte 7 del 'Curso de introduction' hemos explicado como 
grabar programas (con la orden SAVE). Pero el programa no es mas que la herra- 
mienta que nos permite captar y manipular los datos; cuando grabamos el programa 
s61o estamos guardando la herramienta, no los valores de las variables. 

Asi pues, tenemos que escribir una section del programa que grabe los valores de las 
variables. Para ello crearemos un 'fichero de datos'. 
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Lo primero es abrir (OPEN) un fichero en direcci6n de salida (OUT) dandole el nom- 
bre de 'datos'. Despues escribiremos (WRITE) los valores de las variables NOM- 
BRE$(x) y TEL$(x), de 1 a 100, en el fichero; finalmente, cerraremos (CLOSE) el 
fichero y retornaremos (RETURN) al menu. Pondremos esta rutina en las lineas 350 
y siguientes. Para no tener que escribir los numeros de linea, daremos al ordenador 
la orden 

AUTO 350 

que inicia la numeration automatica de las lineas a partir del numero 350: 

350 OPENOUT "datos" 

360 FOR x=l TO 100 

370 WRITE ♦»9,N0MBRE*(x) ,TEL*(x) 

380 NEXT 

390 CLOSEOUT 

400 PRINT"Fin de la grabacion de los datos" 

410 RETURN 

Cuando haya terminado de teclear la linea 410 y haya pulsado [ENTER], pulse [ESC] 
para interrumpir la funcion AUTO. 

Como tenemos una rutina mas, tendremos que poner otro numero de linea en la ins- 
truction ON el GOSUB de la linea 100. Para ello vamos a corregir (editar, EDIT) la 
linea 100: 

100 ON el GOSUB 120,210,270,350 

A partir de ahora, cada vez que elijamos la option 4 del menu, el programa grabara 
el fichero de datos en el disco. 

Observe la linea 370, en la que se escriben los valores de NOMBRE$(x) y TEL$(x) 
en el disco: la expresion #9 que aparece despues de WRITE es un 'indicador de canal' 
que especifica a que canal debe el ordenador enviar los datos. El ordenador maneja 
10 canales: 

Los ocho primeros (#0 a #7) dirigen los datos de la pantalla (bien a la pantalla com- 
pleta, bien a alguna ventana (WINDOW). 

El canal #8 es el de la impresora. 

Finalmente, el canal #9 es el que conecta el ordenador con la unidad de disco; este 
es el que utilizamos en la instruction 370. 
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Una digresion 



Hagamos un comentario sobre la orden AUTO que acabamos de conocer. Si se escri- 
be sencillamente 

AUTO 

el ordenador empieza a numerar lineas a partir del 10 y va incrementando el niimero 
de 10 en 10 cada vez que se pulsa [ENTER]. Si ya existen lineas 10, 20, 30, etc., su 
contenido aparece en la pantalla segun se va pasando por ellas (pulsando [ENTER]). 
Cuando aparece una linea en la pantalla, se la puede editar antes de pulsar [ENTER]. 
Esto da un metodo para editar c6modamente lineas cuyos numeros esten uniforme- 
mente espaciados. 



Volvemos al programa 



Ya hemos escrito las instrucciones que graban los datos en disco. Ahora nos falta ocu- 
parnos de la lectura de los datos para ponerlos a disposition del programa. Como va- 
mos a escribir una nueva rutina, tendremos que poner otro numero de linea en la ins- 
truction ON el GOSUB. Editemos la linea 100: 

100 ON el GOSUB 120,210,270,350,420 

Para leer los datos tenemos que empezar por abrir (OPEN) en direcci6n de entrada 
(IN) el fichero que tenemos en el disco con el nombre de 'datos'. Despues leemos con 
INPUT (por el canal #9) los valores de las variables NOMBRES(x) y TEL$(x), de 
1 a 100, y finalmente cerramos (CLOSE) el fichero y retornamos (RETURN) al menu. 
Escriba las siguientes lineas: 

420 OPENIN "datos" 

430 FOR x=l TO 100 

440 INPUT #9,N0MBRE*(x) ,TEL*(x) 

450 NEXT 

460 CLOSEIN 

470 PRINT M Fin de la carga de los datos" 

480 RETURN 



£1 fin de un principio 



Por fin hemos conseguido un programa que realiza todas las funciones previstas. Todo 
lo que nos queda ahora es ocuparnos de como presentar los resultados en la pantalla. 
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£1 principio del fin 

Para mejorar el manejo de la pantalla vamos a anadir unas cuantas instrucciones: 
34 MODE 1 

Esta instrucci6n establece el modo de pantalla y borra la pantalla al principio del pro- 
grama. Afiada ahora lo siguiente: 

36 WINDOW #1,13,30,10,14 

No se deje impresionar por esta instruction aparentemente tan complicada. Lo que 
hemos hecho es definir una ventana en la pantalla para escribir en ella el menu. Des- 
pues de la palabra WINDOW, lo primero que ponemos es el numero del canal al que 
vamos a asignarla; recuerde que podemos elegir cualquiera entre el y el 7. Ahora 
bien, si tenemos en cuenta que todos los textos que enviamos a la pantalla sin espe- 
cificar numero de canal circulan por el #0, no vamos a dar este numero a nuestra ven- 
tana. Elegimos, pues, el numero 1 . Los cuatro mimeros que vienen a continuation es- 
pecifican el tamafio de la ventana. Su significado no podia ser mas sencillo: columna 
del borde izquierdo, columna del derecho, primera fila y ultima fila, por este orden. 
En nuestro caso, despues de especificar el canal #1 , hemos dicho al ordenador que la 
ventana empieza en la columna numero 1 3 y termina en la numero 30, en horizontal, 
y que empieza en la fila 1 y termina en la 1 4, en vertical. 

Para dirigir los textos del menu al canal #1 debemos editar las lineas 40 a 80: 

40 PRINT #l, n l. Introd. datos" 

50 PRINT #1,-2. Listado" 

60 PRINT *»1,"3. Busqueda" 

70 PRINT #1,"4. Grabar datos" 

80 PRINT #1,"5. Cargar datos" 

Afiadamos tambien 

85 LOCATE 7,20 

para situar el texto de la linea 90. 

Para borrar la pantalla cada vez que el programa retorne al menu, modifiquemos la 
linea 1 10: 

110 GOTO 34 
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Ademas, para borrar la pantalla cada vez que se selecciona una option del menu 
anadimos: 

95 CLS 

Finalmente, incluiremos las tres lineas siguientes para hacer que el retorno al menu 
sea controlado por el usuario: 

103 LOCATE 9,20 

105 PRINT "Pulse una tecla para volver al menu" 

107 IF INKEY*="" THEN 107 

La linea 103 especifica donde se debe escribir el mensaje de la linea 105. La linea 107 
examina el teclado para averiguar si se ha pulsado alguna tecla. Si no se ha pulsado 
ninguna, INKEY$ genera la cadena vacia y entonces se repite la ejecuci6n de la linea 
hasta que efectivamente se pulse alguna. fista es la forma habitual de programar la 
espera 'hasta que el usuario se decida', pues BASIC no pasa a la linea siguiente mien- 
tras no se pulse una tecla. 

Bueno, ya hemos terminado. O quiza no, porque podriamos incluir la posibilidad de 
modificar o borrar nombres y numeros de telefono, de ordenarlos alfabeticamente, de 
listarlos en la impresora, etc. Todas estas mejoras son posibles; podriamos seguir me- 
jorando y depurando el programa indefinidamente, pero en algiin momento tenemos 
que poner el punto y aparte, y este es tan bueno como cualquier otro. Le dejamos, 
pues, con este programa de 'guia de telefonos', confiando en haberle abierto las puer- 
tas del arte de programar. Adecente el programa con la orden 

RENUM 

y grabelo en disco; o borrelo si no le gusta. Quien sabe; quiza pueda necesitarlo algiin 
dia. 

Listado final: 

10 REM guia de telefonos 

20 DIM NOMBRE*(100) 

30 DIM TEL* (100) 

40 MODE 1 

50 WINDOW #1, 13,30, 10, 14 

60 PRINT #1,"1. Introd. datos" 

70 PRINT #1,'!2. Listado" 

80 PRINT ttl,"3. Busqueda" 

90 PRINT #1,"4. Grabar datos" 

100 PRINT ttl,"5. Cargar datos" 

110 LOCATE 7,20 
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12.0 INPUT "Elija una opcion U-5) ";el 

130 CLS 

140 ON el GOSUB 190,290,350,430,500 

150 LOCATE 9,20 

160 PRINT"Pulse una tecla para volver al menu" 

170 IF INKEY*="" THEN 170 

180 GOTO 40 

190 FOR x=l TO 100 

200 CLS 

210 IF LEN (NOMBRE* < x) ) >0 THEN 260 

220 PRINT"Pulse [ENTER] para terminar" 

230 INPUT;" Nombt-e " ; NOMBRE* < x ) 

240 IF NOMBRE* ( x )= "" THEN 270 

250 INPUT;" Tele-fono ";TEL*<x) 

260 NEXT 

270 PRINT "Fin de la entrada de datos" 

280 RETURN 

290 FOR x=l TO 100 

300 IF NOMBRE*(x)="" THEN 330 

310 PRINT NOMBRE* ( x ); n ";TEL*(x) 

320 NEXT 

330 PRINT "Fin de la lista" 

340 RETURN 

350 INPUT "Buscar " ; BUSCA* 

360 FOR x=l TO 100 

370 IF INSTR(NOMBRE*(x) ,BUSCA*)=0 THEN 400 

380 PRINT NOMBRE*(x);" " ; TEL* < x ) 

390 END 

400 NEXT 

410 PRINT"No lo encuentro" 

420 RETURN 

430 OPENOUT "datos" 

440 FOR x=l TO 100 

450 WRITE #9,N0MBRE*(x) , TEL* ( x ) 

460 NEXT 

470 CLOSEOUT 

480 PRINT"Fin de la grabacion de los datos" 

490 RETURN 

500 OPENIN "datos" 

510 FOR x=l TO 100 

520 INPUT #9,N0MBRE*<x) , TEL* < x ) 

530 NEXT 

540 CLOSEIN 

550 PRINT"Fin de la carga de los datos" 

560 RETURN 
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Capitulo 3 

Lista completa de las palabras clave 

del BASIC del AMSTRAD 



IMPORTANTE 

Es imprescindible que usted comprenda la terminologia y la 
notation utilizadas en este capitulo. Para describir la sintaxis 
de las diversas instrucciones utilizamos tanto parentesis como 
corchetes. Es necesario distinguirlos, pues tienen significados 
diferentes. 

Toda instruction, o parte de instruction, no encerrada entre corchetes debe ser teclea- 
da tal como aqui se muestra. Por ejemplo, la instrucci6n END tiene la forma: 

END 
Usted tiene que escribir la palabra END literalmente. 
Cuando un texto esta encerrado entre corchetes angulados, por ejemplo 

(Riiiero it liua) 

no hay que teclear ni los corchetes ni las palabras en ellos incluidas. El texto es una 
indication del tipo de datos que se deben escribir. Por ejemplo, 

EDIT <NMro de Hum) 

significa que hay que escribir la palabra EDIT y a continuaci6n un numero de linear 

EDIT 100 

Los parentesis ordinarios ( ) son obligatorios y han de ser tecleados explicitamente. 
Por ejemplo, 

COS ( <«pre5io» mierica) ) 

exige que se escriban los parentesis rodeando la expresion numerica cuyo coseno se 
quiera calcular: 

PRINT C0S(45) 
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Finalmente, los corchetes delimitan elementos opcionales. Por ejemplo, 
RUN Knntro it li*ei>] 

significa que no es necesario poner un parametro despues de la palabra clave RUN, 
pero que si se puede incluir ese parametro; ademas, en caso de incluirlo, tiene que ser 
necesariamente un numero de linea: 

RUN ... o ... RUN 100 



Caracteres especiales 

& o &H Prefijo para constante hexadecimal 
&X Prefijo para constante binaria 

# Prefijo para indicador de canal 

Tipos de datos 

Las cadenas literales pueden contener entre y 255 caracteres. Una <expresion literal) 
es una expresion que toma como valor una cadena literal. Las cadenas literales se pue- 
den concatenar (unir) con el operador +, a condition de que la cadena resultante no 
tenga mas de 255 caracteres. 

Los datos numericos pueden ser enteros o reales. En este sentido, los enteros tienen 
la limitation adicional de estar comprendidos entre -32768 y +32767. El ordenador ma- 
neja niimeros reales con precision ligeramente superior a nueve digitos. Los niimeros 
reales estan comprendidos en el margen ±1.7E+38. El menor valor mayor que cero es 
aproximadamente 2.9E-39. 

Una <expresion numerica) es una expresi6n que toma como valor un numero. Puede 
consistir en niimeros concretos, en una variable numerica o en combinaciones de am- 
bos: cualquier cosa que no sea una <expresion literal). 

Una <expresion de numero de canal) es una <expresi6n numerica) que identifica una 
ventana de la pantalla, la impresora o la unidad de disco. 

Una <lista de:<elemento> describe un parametro que esta formado por una lista de ele- 
mentos separados por comas. Puede contener uno o varios elementos, sin mas limi- 
taci6n que ,1a longitud de la linea. 

Los indicadores de tipo son: 



Real (tipo prescrito) 



l 



$ Literal 
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La lista de las palabras clave tiene la siguiente estructura: 



PALABRA CLAVE 

Sintaxis 

Ejemplo 

Descripci6n 

Palabras clave asociadas 



Las palabras clave pueden ser: 

ORDENES: Operaciones que se ejecutan directamente. 

FUNCIONES: Operaciones que intervienen como argumentos de una expresion. 

OPERADORES: Operaciones que actiian sobre argumentos matematicos. 

BASIC convierte todas las palabras clave de minusculas a mayusculas cuando se lista 
el programa. En los ejemplos las mostraremos en mayusculas. Es conveniente que us- 
ted las introduzca en minusculas, pues entonces le sera mas facil detectar los errores, 
dado que las palabras clave err6neamente tecleadas seguiran apareciendo en miniis- 
cula en los listados. 

En la publicaci6n 'Concise BASIC specification SOFT 945' se da una guia exhaustiva 
del BASIC del AMSTRAC CPC664. 
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ABS 



ABS (<«pr*sios Ruaerica>) 

PRINT ABS<-67.98) 
67.98 

Funcion. Calcula el valOf absoluto de la expresi6n dada; es decir, convierte los niime- 
ros negativos en positivos. 

Palabras clave asociadas: SGN. 
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AFTER 

AFTER <retirdo del tnpori2idor>[ , <nunro ** teipori2idor)]GOSUB<»uero de linn) 

10 AFTER 250 GOSUB 60:CLS 

20 PRINT "Adivine una letra en 5 segundos" 

30 a*=INKEY*:lF indicador=l THEN END 

40 IF a*OCHR*(INT<RND*26+97>) THEN 30 

50 PRINT a*; " es correcto. Usted gana. " 

55 SOUND 1,478: SOUND 1,358: END 

60 PRINT "demasiado tarde. Yo gano. " 

70 SOUND 1,2000: indicador=l : RETURN 

run 

Orden. Invoca una subrutina de BASIC cuando ha transcurrido el tiempo especifica- 
do. El parametro <retardo del temporizador) especifica el tiempo en unidades de 0.02 
s (cincuentavos de segundo). 

El <numero de temporizador) (margen de a 3) especifica cual de los cuatro tempo- 
rizadores disponibles debe cronometrar el tiempo. El temporizador numero 3 tiene la 
maxima prioridad; el (que es el prescrito), la minima. 

Cada temporizador puede tener una subrutina asociada. 

Para mas amplia informaci6n sobre las interrupciones, consulte la parte 2 del capitulo 
titulado 'Cuando usted guste ...'. 

Palabras clave asociadas: EVERY, REMAIN, RETURN. 

AND 

drguiento) AND <arguiMto) 

IF ■juanVpepe' ANB 'perro'^to' THEN PRINT 'verdidero' ELSE PRINT 'filso' 

verdidero 

IF 'pepeVjuan' AN! 'jito^'perro' THEN PRINT 'verdidero' ELSE PRINT 'filso' 

verdidero 

IF 'juanVpepe' AN> 'jito^'perro' THEN PRINT 'verdidero' ELSE PRINT 'filso' 

verdidero 

PRINT 1 AND 1 

1 
PRINT I AM I 

I 
PRINT 1 AID I 

I 
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Operador. Realiza la operation 16gica 'y' bit a bit entre enteros. El resultado es a 
menos que ambos bits sean 1 . 

Para mas amplia information sobre operaciones logicas, consulte la parte 2 del capi- 
tulo titulado 'Cuando usted guste ...'. 

Palabras clave asociadas: OR, NOT, XOR. 



ASC 

ASC ( <expresioR literal)) 

PRINT ASC<"x") 
120 

Funcion. Calcula el c6digo ASCII del primer caracter de la <expresion literal). 

Palabras clave asociadas: CHR$. 

ATN 

ATN ( <expresio« auerica) ) 

PRINT ATN<1) 
0.785398163 

Funcion. Calcula el arco cuya tangente es la <expresion numerica). 

Observese que se puede utilizar DEG y RAD para hacer que el resultado se de en gra- 
dos o en radianes, respectivamente. 

Palabras clave asociadas: COS, DEG, RAD, SIN, TAN. 

AUTO 

AUTOKiraiero it linea)H, (increimto)] 

AUTO 100,50 

Or den. Genera numeros de linea AUTOmaticamente. El parametro opcional <numero 
de linea) especifica en que numero debe empezar la numeraci6n. Si se lo omite, el or- 
denador genera numeros de linea a partir del 10. 
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El parametro opcional <incremento> especifica el salto que debe haber entre cada linea 
y la siguiente. Si se lo omite, el ordenador genera niimeros de linea espaciados de 10 
en 10. 

Si se genera un numero de linea que ya ha sido utilizado, el ordenador la muestra en 
la pantalla y entonces se la puede editar, si es necesario. La linea editada sustituye a 
la que esta en la memoria en el momento de pulsar [ENTER]. 

Para interrumpir el proceso de numeraci6n automatica, pulse [ESC]. 

Palabras clave asociadas: ninguna. 

BIN$ 

BIN$((expresiM eateraH , <Mprnioi entera)]) 

PRINT BIN*<64,8) 
01000000 

Funcion. Produce una cadena de digitos binarios que representan el valor de la pri- 
mera <expresion entera), utilizando el numero de digitos binarios especificados por la 
segunda <expresi6n entera) (margen de a 16). Si el numero de digitos especificado 
es mayor que el necesario, la expresion resultante se completa con ceros por la iz- 
quierda; si el numero de digitos especificado es demasiado pequefio, la expresion re- 
sultante no se trunca, sino que contiene todos los digitos que sean necesarios. 

La <expresion entera) que se va a convertir en binario tiene que tener un valor com- 
prendido entre -32768 y +65535. 

Palabras clave asociadas: DEC$, HEX$, STR$. 

BORDER 

BORDER <color>[ , (color)] 

10 REM 729 comb inaci ones para el borde! 

20 SPEED INK 5,5 

30 FOR a=0 TO 26 

40 FOR b=0 TO 26 

50 BORDER a, b:CLS: LOCATE 14,13 

60 PRINT "border" 5a; ", "5b 

70 FOR t=l TO 500 

80 NEXT t,b,a 

run 
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Orden. Cambia el color del borde de la pantalla. Si se especifican dos colores, el del 
borde alterna entre ambos, a una velocidad que se puede regular con la orden SPEED 
INK. El margen de colores es de a 26. 

Palabras clave asociadas: SPEED INK. 



BREAK 

Vease ON BREAK CONT, ON BREAK GOSUB, ON BREAK STOP. 

CALL 

CALL <expresion de direccioa de ieioria>[,<lista de:<paruetro>] 
CALL 

Orden. Permite invocar desde BASIC una rutina escrita en codigo de maquina. El 
ejemplo anterior provoca la reinitialization de la maquina. 

Esta orden no debe ser utilizada si no se sabe cuales son sus efectos. 

Palabras clave asociadas: UNT. 

CAT 

CAT 

CAT 

Orden. Da un catalogo del contenido del disco. Presenta en la pantalla, en orden al- 
fanum6rico, los nombres completos de todos los ficheros, junto con las respectivas lon- 
gitudes (en unidades de Kbytes, redondeadas por exceso). Tambien se muestra el es- 
pacio libre que queda en el disco, asi como las identificaciones de la unidad y del 
usuario. 

Esta orden no afecta al programa actualmente residente en la memoria. ^ 

Palabras clave asociadas: LOAD, RUN, SAVE. 

CHAIN 

CHAIN <u»bre de ficherD)[,<expresioa de nuiero de linea)] 
CHAIN "programa. bas", 350 
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Orden. Lee un programa grabado en disco y lo carga en la memoria reemplazando al 
actual. Inicia la ejecuci6n del nuevo programa, bien desde el principio, bien desde una 
linea especificada por el parametro opcional <expresion de niimero de linea). 

Los ficheros protegidos (grabados con SAVE ... ,p) se pueden cargar y ejecutar con 
esta orden. 

Palabras clave asociadas: CHAIN MERGE, LOAD, MERGE. 



CHAIN MERGE 

CHAIN MERGE <itoibre de ficheroH, <expresion de nuiero de linea)] 
[, DELETE <iargen de Ruieros de linea)] 

CHAIN MERGE "nuevopro. bas" , 750, DELETE 400-680 

Orden. Lee un programa grabado en el disco, lo carga en la memoria mezclandolo 
con el actual y empieza a ejecutar el programa resultante, bien desde el principio, bien 
desde una linea especificada por el parametro opcional <expresi6n del niimero de li- 
nea). Si se desea borrar parte del programa original antes de iniciar la carga del nue- 
vo, se puede utilizar la option DELETE <margen de niimeros de linea). 

Observese que las lineas del programa que se carga sustituyen a las que tuvieran el 
mismo niimero en el programa original. 

Los ficheros protegidos (grabados con SAVE ... ,p) no se pueden cargar con esta 
orden. 

Palabras clave asociadas: CHAIN, DELETE, LOAD, MERGE. 



CHR$ 

CHR*(<expresioa ettera)) 

10 FOR x=32 TO 255 
20 PRINT x;CHR*(x) , 
30 NEXT 
run 

Funcion. Convierte la <expresion entera), que tiene que estar en el margen de a 255, 
en su caracter equivalente. El conjunto de caracteres del AMSTRAD CPC664 se mues- 
tra en la parte 3 del capitulo titulado 'Para su referencia ...'. 
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Observese que los niimeros a 31 generan caracteres de control; por esa razon los ne- 
mos excluido del ejemplo anterior. 

Palabras clave asociadas: ASC. 



CINT 

C I NT ( {expresion nuitrica) ) 

10 n=1.9999 

20 PRINT CINT(n) 

run 

2 

Funcion. Aproxima el valor de la <expresi6n numerica) a un numero entero compren- 
dido en el margen de -32768 a +32767. 

Palabras clave asociadas: CREAL, FIX, INT, ROUND, UNT. 
CLEAR 

CLEAR 

CLEAR 

Orden. Borra todas las variables (iguala a cero las numericas y a la cadena vacia las 
literales). Ademas, se abandonan los ficheros que esten abiertos, se borran todas las 
listas y funciones definidas por el usuario y BASIC retorna al modo de radianes para 
el calculo de funciones trigonometricas. 

Palabras clave asociadas: ninguna. 
CLEAR INPUT 

CLEAR INPUT 

10 CLS 

20 PRINT "Teclee letras ahora!" 

30 FOR t=l TO 3000 

40 NEXT 

50 CLEAR INPUT 

run 
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Orden. Desecha todos los caracteres tecleados antes y que todavia est6n en el tampon 
del teclado; es decir, borra el tampon del teclado. 

Para observar el efecto de esta orden, ejecute el programa ejemplo y escriba letras cuan- 
do el ordenador se lo pida. Borre luego la linea 50 y vuelva a ejecutar el programa, 
fijandose en la diferencia. 

Palabras clave asociadas: IN KEY, INKEY$, JOY. 



CLG 

CLG t(tiata)] 

LOCATE 1,20 
CLG 3 

Orden. Borra la pantalla grafica, dejandola del color del papel de graficos. Si se es- 
pecifica la <tinta>, el papel de graficos toma ese color. 

Palabras clave asociadas: CLS, GRAPHICS PAPER, INK, ORIGIN. 
CLOSEIN 

CLOSEIN 

CLOSEIN 

Orden. Cierra el fichero de disco que este abierto en direcci6n de entrada (si lo hay) 
(Vease OPENIN.) 

Palabras clave asociadas: EOF, OPENIN. 
CLOSEOUT 

CLOSEOUT 

CLOSEOUT 

Orden. Cierra el fichero de disco que este abierto en direction de salida (si lo hay) 
(Vease OPENOUT.) 

Palabras clave asociadas: OPENOUT. 
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CLS 

CLS [#<expresion de nuiero de caul)] 

10 PAPER *2,3 
20 CLS *2 
run 

Orden. Borra la ventana (canal de pantalla) especificada, tinendola del color del pa- 
pel. Si no se especifica ninguna <expresion de numero de canal), el ordenador borra 
la pantalla #0. 

Palabras clave asociadas: CLG, INK, PAPER, WINDOW. 



CONT 

CONT 

CONT 

Orden. Reanuda la ejecucion del programa cuando este ha sido interrumpido, bien por- 
que se ha pulsado la tecla [ESC] dos veces, bien porque el programa ha encontrado 
la instruction STOP. CONT solamente puede continuar el programa en el supuesto 
de que no se lo haya modificado durante la interruption y de que no se trate de un 
programa protegido. 

Palabras clave asociadas: STOP. 



COPYCHR$ 

C0PYCHR*(tt<txprtsi6» de miero de caial>) 

10 CLS 

20 PRINT "Extremo superior izquierdo" 

30 LOCATE 1,1 

40 a*=COPYCHR*(*»0) 

50 LOCATE 1,20 

60 PRINT a* 

run 

Funcion. Lee el caracter que hay en la posicion actual del cursor; la ventana tiene que 
ser especificada. El programa ejemplo lee el caracter que esta en la posicion 1,1 y lo 
escribe en la posicion 1 ,20. 
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Si el caracter no es reconocible, esta funci6n genera la cadena vacia. 
Palabras clave asociadas: LOCATE. 

COS 

COS (<Kpresion nuierica)) 

DEG 

PRINT C0S<45) 
0.707106781 

Funcion. Calcula el coseno de la <expresi6n numerica). 

Obs6rvese que se puede utilizar <DEG> y <RAD> para hacer que el ordenador entienda 
los arcos como dados en grados o en radianes, respectivamente. 

Palabras clave asociadas: ATN, DEG, RAD, SIN. 



CREAL 

CREAL (<txpresioR ainerica)) 

10 a=PI 

20 PRINT CINT(a) 

30 PRINT CREAL (a) 

run 

3 

3.14159265 

Funcion. Convierte el valor de la <expresi6n numerica), cualquiera que sea su tipo, en 
un numero real. 

Palabras clave asociadas: CINT. 



CURSOR 

CURSOR Kcorautatar lei sistna)H , <conuta<or del usuario)] 

10 CURSOR 1 

20 PRINT "pregunta?"? 

30 a*=INKEY*:lF a*="" THEN 30 
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40 PRINT a* 
50 CURSOR 
run 

Orden. El cursor puede ser activado o inhibido por dos conmutadores: el del sistema 
y el del usuario. Esta orden controla los dos conmutadores. Los parametros pueden 
ser (inhibido) o 1 (activado). En la instrucci6n INKEY$ el cursor esta normalmente 
oculto, pero en el programa ejemplo ha sido activado por el valor 1 del parametro 
<conmutador del sistema) en la linea 10. 

Para que el cursor sea visible tienen que estar a 1 los dos conmutadores. El ordenador 
activa automaticamente el conmutador del sistema para la instrucci6n INPUT, pero 
lo desactiva para INKEY$. 

Es conveniente ocultar el cursor antes de escribir texto en la pantalla. 

Se puede omitir cualquiera de los parametros, pero no los dos. Cuando se omite uno 
de los parametros, la situation del correspondiente conmutador no se modifica. 

Palabras clave asociadas: LOCATE. 



DATA 



DATA (lista 4e:<CDnstante> 

10 FOR x=l TO 4 

20 READ nombre*,apel 1 ido* 

30 PRINT "Don " 5 nombre*; " "Japellido* 

40 NEXT 

50 DATA Manuel, Gonzalez, Daniel, Garcia 

60 DATA Fel ipe,Revi 1 lo, Ernesto, Diaz 

run 

Orden. Identifica las lineas en las que estan contenidos los datos que pueden ser leidos 
con la instruction READ. Cada vez que se lee un dato, el 'puntero' pasa a sefialar el 
siguiente elemento de la lista. Se puede utilizar la instruction RESTORE para hacer 
que el puntero sefiale una linea de datos determinada. 

En la parte 2 del capltulo titulado 'Cuando usted guste ...' daremos mas amplia infor- 
mation sobre los datos. 

Palabras clave asociadas: READ, RESTORE. 
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DEC$ 

DEC* < <(xpresio» nuierica>, {plutilla it foruto>) 

PRINT DEC*U0t7, "££#####*»*»##, .**♦»") 
£10,000,000.00 

Funcion. Produce una representaci6n en forma de cadena decimal de la <expresi6n nu- 
merica) utilizando la <plantilla de formato) especificada. 

La plantilla de formato solo puede contener los caracteres siguientes: 

+ -£**♦», . \ 

La utilizaci6n de estos 'especificadores de formato' se describe en PRINT USING. 

Palabras clave asociadas: BIN$, HEX$, PRINT USING, STR$. 

DEFFN 

DEF FN<Rmbr( de la fu>cioR>[Kpariattros de foru»]=<exprtsio»> 

10 t=TIME/300 

20 DEF FNreloj=INT<TIME/300-t) 

30 EVERY 100 60SUB 50 

40 GOTO 40 

50 PRINT "el programa se ejecuto hace"; 

60 PRINT FNreloj ; "segundos" 

70 RETURN 

run 

Orden. BASIC permite que el programa defina y utilice funciones. DEF FN realiza la 
primera parte de ese mecanismo: crea una funci6n especifica del programa; una vez 
definida, la funcion se maneja de la misma forma que las funciones intrinsecas de 
BASIC. 

(Notese en el ejemplo anterior que el valor de la funcion FNreloj sigue siendo actua- 
lizada ininterrumpidamente, aunque se imponga una pausa al programa pulsando 
[ESC] una vez, o se lo detenga pulsando [ESC] dos veces para luego reanudarlo con 
CONT.) 

Palabras clave asociadas: ninguna. 
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DEFINT 

DEFINT Uista de:<iar9en de letras) 

10 DEFINT n 
20 numero=123.456 
30 PRINT numero 
run 
123 

Orden. Cada vez que el programa encuentra una variable que no vaya seguida de un 
indicador explicito de tipo (! % $), el ordenador considera que es del tipo implicito. 
Esta orden hace que el tipo implicito sea 'variable entera'. La orden afecta a todas las 
variables cuyos nombres empiecen por la letra o letras especificadas. Se puede espe- 
cificar una lista: 

DEFINT a,b,c 
o bien un margen de iniciales: 

DEFINT a-z 
Palabras clave asociadas: DEFREAL, DEFSTR. 

DEFREAL 

DEFREAL Uista deiUarpii de letras) 

DEFREAL x,a--f 

Orden. Cada vez que el programa encuentra una variable que no vaya seguida de un 
indicador explicito de tipo (! % $), el ordenador considera que es del tipo implicito. 
Esta orden hace que el tipo implicito sea 'variable real'. La orden afecta a todas las 
variables cuyos nombres empiecen por la letra o letras especificadas. Se puede espe- 
cificar una lista: 

DEFREAL a,b,c 
o bien un margen de iniciales: 

DEFREAL a-z 
Palabras clave asociadas: DEFINT, DEFSTR. 
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DEFSTR 

DEFSTR <listi de:<iar9M it letras) 

10 DEFSTR n 

20 nombre="Amstrad ,, 

30 PRINT nombre 

run 

Amstrad 

Orden. Cada vez que el programa encuentra una variable que no vaya seguida de un 
indicador explicito de tipo (! % $), el ordenador considera que es del tipo implicito. 
Esta orden hace que el tipo implicito sea 'variable literal'. La orden afecta a todas las 
variables cuyos nombres empiecen por la letra o letras especificadas. Se puede espe- 
cificar una lista: 

DEFSTR a,b,c 
o bien un margen de iniciales: 

DEFSTR a-z 
Palabras clave asociadas: DEFINT, DEFREAL. 

DEG 

DEG 

DEG 

Orden. Hace que BASIC considere que los valores de los arcos que intervienen en los 
calculos trigonometricos estan expresados en grados, no en radianes. La situation im- 
plicita para las funciones SIN, COS, TAN y ATN es la inversa: radianes. DEG cam- 
bia de radianes a grados; las 6rdenes RAD, NEW, CLEAR, LOAD, RUN, etc. cam- 
bian de grados a radianes. 

Palabras clave asociadas: ATN, COS, RAD, SIN, TAN. 

DELETE 

DELETE <iargen it iraieros de linea) 
DELETE 100-200 
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Orden. Borra la instrucci6n o grupo de instrucciones especificado por <margen de nu- 
meros de lineaX 

Si se omite el primer numero de <margen de numeros de linea>, se entiende 'desde el 
principio del programa hasta ...'; si se omite el segundo numero, se entiende '... hasta 
el final del programa'. Asi, 

DELETE -200 
borra las primeras lineas del programa, hasta la 200 inclusive. En cambio, 

DELETE 50- 
borra desde la linea 50 en adelante. Finalmente, 

DELETE 
borra el programa completo. 
Palabras clave asociadas: CHAIN, MERGE, RENUM. 

DERR 

DERR 

LOAD "xyz.abc" 

XYZ .ABC not -found 
Ready 

PRINT DERR 
146 

Funcion. Toma como valor el ultimo codigo de error detectado por el sistema de ar- 
chivo en disco. Se puede utilizar el valor de DERR para determinar que error se ha 
producido. Vease en el capitulo 'Para su referencia ...' la lista de los mensajes de error. 

Palabras clave asociadas: ERL, ERR, ERROR, ON ERROR GOTO, RESUME. 



DI 

DI 

10 CLS: TAG: EVERY 10 GOSUB 90 
20 X 1 =RND*320 : X2=RND*320 
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30 Y=200+RND*200:C*=CHR*<RND*255) 

40 FOR X=320-X1 TO 320+X2 STEP 4 

50 DI 

60 MOVE 320,0,1: MOVE X-2,Y:M0VE X,Y 

70 PRINT " "5C*5 : FRAME 

80 El: NEXT: GOTO 20 

90 MOVE 320,0: DRAW X+8, Y-16,0: RETURN 

run 

Orden. Inhibe interrupciones (a exception de [ESC]) hasta que se las habilite expli- 
citamente con El o implicitamente con el RETURN en el que termina la subrutina 
invocada como consecuencia de la interrupci6n. 

Notese que al entrar en una subrutina de interruption se inhiben automaticamente to- 
das las interrupciones de prioridad igual o inferior. 

Esta orden se utiliza para asegurar que el programa funcione sin interruption; por 
ejemplo, cuando dos rutinas estan compitiendo por el uso de recursos comunes. En el 
ejemplo anterior, el programa principal y la subrutina de interruption estan compi- 
tiendo por el uso de la pantalla grafica. 

En la parte 2 del capitulo 'Cuando usted guste ...' daremos mas amplia information 
a este respecto. 

Palabras clave asociadas: AFTER, El, EVERY, REMAIN. 



DIM 

DIM <lista deKvariable iiidexada) 

10 CLS 

20 DIM amigo*<5) , tele-f ono*<5) 

30 FOR n=l TO 5 

40 PRINT "Amigo numero:"5n 

50 INPUT "Nombre ";amigo*<n) 

60 INPUT "Tele-fono " ; tele-f ono*<n) 

70 PRINT 

80 NEXT 

90 FOR n=l TO 5 

100 PRINT n;amigo*<n) , tele-f ono*<n) 

110 NEXT 

run 

Orden. DIMensiona listas. DIM hace una reserva de espacio para los elementos de la 
lista y especifica cual va a ser el maximo valor del indice. BASIC requiere que se le 
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informe del tamaiio que debe reservar para las listas; sin embargo, permite el manejo 
de listas no dimensionadas (es decir, no declaradas con una orden DIM) a condici6n 
de que el indice no sobrepase el valor 10. 

Una lista es una 'variable indexada', lo que quiere decir que se utiliza un solo nombre 
de variable para representar varios elementos; cada elemento esta identificado por su 
'indice'. Las listas pueden ser controladas facilmente mediante bucles de tipo FOR ... 
NEXT, identificando el indice con la variable del contador del bucle. 

Observese que el valor minimo del indice (esto es, el primer elemento utilizable) es el 
cero. 

Un vector es una lista monodimensional. Tambien se pueden utilizar listas multidi- 
mensionales (matrices). Por ejemplo, una lista tridimensional se dimensionaria con 

DIM posiciDn*<20,20,20) 
y un elemento concreto seria 

pDsic ion* (4, 5, 6) 
Palabras clave asociadas: ERASE. 

DRAW 

DRAW <CDor4ena4a x) , (cooriemU j)l , t<ti»ta)][ , <m>Jd de tinta)]] 

10 MODE 0: BORDER 0: PAPER 0: INK 0,0 
20 x=RND*640:y=RND*400:z=RND*15 
30 DRAW x,y,z 
40 GOTO 20 
run 

Orden. Dibuja en la pantalla grafica una recta que va desde la position actual del cur- 
sor grafico hasta el punto de coordenadas x, y especificadas. Se puede especificar el 
color de <tinta> con el que se desea dibujar la recta (margen: a 1 5). 

El <modo de tinta) es opcional y determina el modo de interacci6n entre la tinta con 
que se dibuja y la que ya esta en la pantalla grafica. Los cuatro modos son los 
siguientes: 

Normal 

1 XOR (OR exclusivo) 

2 AND 

3 OR 
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Palabras clave asociadas: DRAWR, GRAPHICS PEN, MASK. 

DRAWR 

DRAWR (increaento it i) , <iacr«KRtD it y>[ , [<ti»U>][ , <io4o it ti»U>J3 

10 CLSIPRINT "escalera" 

20 MOVE 0,350: FOR n=l TO 8 

30 DRAWR 50,0 

40 DRAWR 0,-50 

50 NEXT:MOVE 348,0:FILL 3 

60 GOTO 60 

run 

Orden. Dibuja en la pantalla grafica una recta que va desde la position actual del cur- 
sor grafico hasta el punto especificado en coordenadas relativas por <incremento de 
x> e <incremento de y>. Se puede especificar el color de <tinta> con el que se desea di- 
bujar (margen: a 1 5). 

El <modo de tinta) es opcional y determina el modo de interaction entre la tinta con 
que se dibuja y la que ya esta en la pantalla grafica. Los cuatro modos son los 
siguientes: 

Normal 

1 XOR (OR exclusivo) 

2 AND 

3 OR 

Palabras clave asociadas: DRAW, GRAPHICS PEN, MASK. 

EDIT 

EDIT (imaero de linea) 
EDIT 20 

Orden. Escribe en la pantalla la linea especificada por <niimero de linea) y la deja dis- 
puesta para ser editada, con el cursor sobre ella. 

Palabras clave asociadas: AUTO, LIST. 
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EI 

EI 

EI 

Orden. Habilita interrupciones que hayan sido inhibidas previamente con Dl. 

Si se inhiben las interrupciones en una subrutina de interruption, BASIC las habilita 
cuando encuentra el RETURN del final de la subrutina. 

En la parte 2 del capitulo 'Cuando usted guste ...' daremos mas amplia informaci6n 
acerca de las interrupciones. 

Palabras clave asociadas: AFTER, Dl, EVERY, REMAIN. 

ELSE 

(Vease IF.) 

END 

END 

END 

Orden. Termina la ejecuci6n del programa y devuelve el ordenador al modo directo. 
En un mismo programa se pueden incluir varias ordenes END; se supone un END 
implicito en la ultima linea del programa. 

Palabras clave asociadas: STOP. 



ENT 

ENT <iuiero de nvolvnteH , <seccioi it eivolvente)]! , <seccion it envolvente)] 

I , (seccion it envolvente)] [ , (seccion it envolvente)] 
I , <SKcioa it envolvente)] 

Orden. Define las caracteristicas de la envolvente de tono especificada por <niimero 
de envolvente) (margen: de 1 a 1 5) e invocada como <envolvente de tono> en la orden 
SOUND. Si el <numero de envolvente) es negativo (margen de -1 a -15), la envol- 
vente se repite hasta el final de la <duracion> especificada en la orden <SOUND>. 
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Cada <seccion de envolvente) puede constar de 2 o 3 parametros. 
Si se utilizan 3 parametros, tienen el significado siguiente: 

(nuiero de escalones) , <altura de cada escalon), <tieipo de paisa) 

Parametro 1: <numero de escalones) 

Este parametro especifica en cuantas etapas queremos que la nota evolucione a lo lar- 
go de la duracion de la section de la envolvente. Por ejemplo, si una secci6n de la 
nota ha de durar 10 segundos, se la puede dividir en 10 etapas de 1 segundo cada una; 
en tal caso, el parametro <numero de escalones) tendra que ser 10. 

El margen de este parametro es de a 239. 

Parametro 2: <altura de cada escalon) 

En cada etapa, el tono puede variar con respecto al de la anterior en un numero de 
unidades comprendido entre -128 y +127. Las variaciones negativas representan au- 
mentos del tono (tono mas agudo); las variaciones negativas reducen el tono (tono 
mas grave). El valor minimo del periodo de tono es 0. En el capitulo 'Para su refe- 
renda ...' se da la lista completa de los periodos de tono. 

Parametro 3: <tiempo de pausa) 

Este parametro especifica la duracion de cada escalon (intervalo entre cada dos saltos) 
en unidades de centesimas de segundo. El margen de valores es de a 255; esto sig- 
nifica que la duracion maxima de cada escalon es de 2.56 segundos (el se considera 
como 256). 

Si se utilizan 2 parametros, su significado es el siguiente: 

(periodo de tono) , <tieipo de pausa) 

Parametro 1: <periodo de tono) 

Este parametro da un nuevo valor absoluto del periodo de tono. (Vease el parametro 
2 de la orden SOUND.) 

Parametro 2: <tiempo de pausa) 

Este parametro especifica la duracion de escalon en unidades de centesimas de segun- 
do. El margen de valores es de a 255, es decir, el valor maximo es 2.56 segundos, 
ya que el se considera como 256. 
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General 

La suma de todos los <tiempos de pausa) no debe ser mayor que el parametro <dura- 
ci6n> de la orden SOUND; de lo contrario, el sonido habra concluido antes de que 
se hayan completado todas las etapas de la envolvente. (En tal caso, el ordenador ig- 
nora el resto del contenido de la envolvente.) 

Analogamente, si la duration especificada en SOUND es mayor que la impuesta por 
la suma de todos los <tiempos de pausa), la nota continuara sonando aunque se hayan 
terminado los escalones de la envolvente de tono, y lo hara con el tono correspon- 
diente al de la ultima etapa de la envolvente. 

En una orden ENT se puede definir un maximo de 5 <secciones de envolvente) (cada 
una de las cuales puede constar de 2 o 3 parametros). 

La primera etapa de una envolvente de tono se ejecuta inmediatamente. 

Cada vez que se define una envolvente de tono, se anula la definicion anterior. 

Si se define un <numero de envolvente) sin especificar parametros para ninguna de sus 
secciones, se anula la definicion anterior. 

En la parte 2 del capitulo 'Cuando usted guste ...' daremos mas information sobre las 
envolventes de tono. 

Palabras clave asociadas: ENV, SOUND. 



ENV 

ENV <iuiero de envolvente)! , <seccion de envolvente)]! , <seccion de envolvente)] 

[ , <seccion de envolvente) J [ , <seccion de envolvente)] 
[ , (section de envolvente)] 

Orden. Define las caracteristicas de la envolvente de volumen especificada por <nume- 
ro de envolvente) (margen: de 1 a 1 5) e invocada como <envolvente de volumen) en 
la orden SOUND. 

Cada <seccion de envolvente) puede constar de 2 o 3 parametros. 

Si se utilizan 3 parametros, tienen el significado siguiente: 

(nuiero de escalones), <altura de cada escalon), Uietpo de pausa) 
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Parametro 1: <numero de escalones) 

Este parametro especifica en cuantas etapas queremos que la nota evolucione antes 
de completar la secci6n de la envolvente. Por ejemplo, si una section de la nota ha de 
durar 10 segundos, se la puede dividir en 10 etapas de 1 segundo cada una; en tal 
caso, el parametro <numero de escalones) sera 1 0. 

El margen de este parametro es de a 1 27. 



Parametro 2: <altura de cada escalon) 

En cada etapa, el volumen puede variar con respecto al nivel anterior en un numero 
de unidades comprendido entre y 1 5. Estos 16 niveles de sonido son los mismos que 
se definen en la instrucci6n SOUND. Sin embargo, el margen del parametro <altura 
de cada escalon) es de -1 28 a +1 27; el nivel del volumen vuelve a cada vez que 
sobrepasa el 1 5. 



Parametro 3: <tiempo de pausa) 

Este parametro especifica la duration de cada escalon en unidades de centesimas de 
segundo. El margen de valores es de a 255; esto significa que la duration maxima 
de cada escalon es de 2.56 segundos (el se considera como 256). 

Si se utilizan 2 parametros, su significado es el siguiente: 
<envolveite de hardware), <periodo de envolvente) 

Parametro 1: <envolvente de hardware) 

Este parametro especifica el valor que se debe enviar al registro de forma de envol- 
ventes del generador de sonido. 

Parametro 2: <periodo de envolvente) 

Este parametro especifica el valor que se debe enviar a los registros de periodo de en- 
volventes del generador de sonido. 

Para utilizar las envolventes de hardware es necesario que el usuario conozca el fun- 
cionamiento interno del generador de sonido. De no ser asi, le recomendamos que uti- 
lice las envolventes definidas por programa, incorporando un <tiempo de pausa) 
adecuado. 
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General 

La suma de todos los <tiempos de pausa) no debe ser mayor que el parametro <dura- 
cion> de la orden SOUND; de lo contrario, el sonido habra concluido antes de que 
se hayan completado todas las etapas de la envolvente. (En tal caso, el ordenador ig- 
nora el resto del contenido de la envolvente.) 

Analogamente, si la duration especificada en SOUND es mayor que la impuesta por 
la suma de todos los <tiempos de pausa), la nota continuara sonando aunque se hayan 
terminado los escalones de la envolvente de tono, y lo hara con nivel de volumen igual 
al de la ultima etapa de la envolvente. 

En una orden ENV se puede definir un maximo de 5 <secciones de envolvente) (cada 
una de las cuales puede constar de 2 o 3 parametros). 

La primera etapa de una envolvente de volumen se ejecuta inmediatamente. 

Cada vez que se define una envolvente de volumen, se anula la definition anterior. 

Si se define un <numero de envolvente) sin especificar parametros para ninguna de sus 
secciones, se anula la definici6n anterior. 

En la parte 2 del capitulo 'Cuando usted guste ...' daremos mas information sobre las 
envolventes de volumen. 

Palabras clave asociadas: ENT, SOUND. 



EOF 

EOF 

10 OPENIN "ejl.bas" 

20 WHILE NOT EOF 

30 LINE INPUT tt9,a* 

40 PRINT a* 

50 WEND 

60 CLOSEIN 

run 

Funcion. Comprueba si el caracter leido en el disco es el codigo EOF (fin de fichero). 
Da el valor -1 (verdadero) si no hay ningun fichero abierto o si se ha alcanzado el 
final del fichero; da (falso) en caso contrario. 

Palabras clave asociadas: OPENIN, CLOSEIN. 
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ERASE 

ERASE <lista 4e:<mnbre it variable) 

DIM a (100) ,b*<100) 
ERASE a,b* 

Orden. Borra el contenido de una o varias listas y libera el espacio de memoria ocu- 
pado por ellas. 

Palabras clave asociadas: DIM. 



ERL 

ERL 

10 ON ERROR GOTO 30 

20 GOTO 1000 

30 PRINT "Error en la linea";ERL 

40 END 

run 

Funcion. Da el numero de la linea en la que se ha detectado el ultimo error. En el 
programa ejemplo, el error esta en la linea 1000, y este es el numero generado por 
ERL en la linea 30. 

Palabras clave asociadas: DERR, ERR, ERROR, ON ERROR GOTO, RESUME. 



ERR 

ERR 

GOTO 500 

Line does not exist 
Ready 
PRINT ERR 
8 

Funcion. Da el numero del ultimo error detectado. En el capitulo 'Para su referenda 
...' se da la lista de los mensajes de error. El programa ejemplo muestra que el error 
numero 8 es 'Line does not exist'. 

Palabras clave asociadas: DERR, ERL, ERROR, ON ERROR GOTO, RESUME. 
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ERROR 

ERROR (expresion enter!) 

10 IF INKEY*="" THEN 10 ELSE ERROR 17 
run 

Orden. Invoca el error de numero especificado por <expresion entera). En el capitulo 
'Para su referenda ...' se da la lista de los mensajes de error 1 a 32. BASIC trata el 
ERROR como si efectivamente lo hubiera detectado: salta a la rutina de gestion de 
errores (si la hay) y genera los valores correctos de ERR y ERL. 

La orden ERROR seguida de una <expresi6n entera) cuyo valor este entre 33 y 255 
sirve para crear mensajes de error a medida de las necesidades del programador, como 
ilustra el siguiente ejemplo: 

10 ON ERROR GOTO 100 

20 INPUT "Escriba una letra " ; a* 

30 IF LEN(A*)<>1 THEN ERROR 100 

40 GOTO 20 

100 IF ERR=100 THEN 110 ELSE 130 

110 PRINT CHR*(7) 

120 PRINT "Le dije que UNA letra!" 

130 RESUME 20 

run 

Palabras clave asociadas: ERL, ERR, ON ERROR GOTO, RESUME. 

EVERY 

EVERY < re tar do del teiporizadorH , <auiero de teipori»dor>]GOSUB<muerD de lines) 

10 EVERY 50,1 GOSUB 30 

20 GOTO 20 

30 SOUND 1,20 

40 RETURN 

run 

Orden. Invoca una subrutina de BASIC a intervalos de tiempo regulares. El <periodo 
de tiempo) especifica el intervalo en unidades de 0.02 s (cincuentavos de segundo). 

El <numero del temporizador) (margen de a 3) especifica cual de los cuatro crono- 
metros se debe utilizar. El temporizador numero 3 tiene la prioridad mas alta; el nu- 
mero (que es el implicito), la mas baja. 
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Cada uno de los cuatro cronometros puede tener una subrutina asociada. 

En la parte 2 del capitulo 'Cuando usted guste ...' damos mas amplia information acer- 
ca de las interrupciones. 

Palabras clave asociadas: AFTER, REMAIN. 



EXP 

EXP (<expresioit atuerica)) 

PRINT EXP<6.876) 
968.743625 

Funcion. Calcula el numero e elevado a la potencia dada por <expresi6n numerica). 
El numero e es la base de los logaritmos neperianos, aproximadamente igual a 
2.7182818. 

Palabras clave asociadas: LOG. 



FILL 

FILL Uinta) 

10 MODE l:mar=2:M0VE 0,200,3 
20 DRAWR 100,-100!DRAWR 220,0 
30 MOVER 10,0: DRAWR 220,0 
40 DRAWR 100, 100: MOVE 0,0 
50 FILL mar 
run 

Orden. Rellena una regi6n de la pantalla grafica. Los limites de la region son rectas 
dibujadas con la tinta de la pluma de graficos actual o con la tinta utilizada para re- 
llenar (margen de a 1 5). 

El rellenado se realiza partiendo de la position actual del cursor grafico. Si esta po- 
sition esta en un limite, no se produce rellenado alguno. 

Palabras clave asociadas: GRAPHICS PEN. 
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FIX 

FIX (<expresiot niuerica>) 

PRINT FIX<9. 99999) 

9 

Funcion. Da la parte entera de la <expresi6n numerica), ignorando su parte decimal. 
Palabras clave asociadas: CINT, INT, ROUND. 

FN 

Vease DEF FN. 

FOR 

FOR (variable seacilla>=<pritcipio> TO <fin> [STEP <salto>] 

10 FOR n=2 TO 8 STEP 2 

20 PRINT nj 

30 NEXT n 

40 PRINT ", y Dcho dieciseis" 

run 

Or den. Ejecuta el grupo de instrucciones comprendidas entre FOR y NEXT un nu- 
mero dado de veces, incrementando el valor de la variable de control (variable del con- 
tador) en un numero especificado por <salto> desde <principio> hasta <fin>. Si no se es- 
pecifica ningun valor de <salto> para SIZE, se supone el 1. 

El <salto> puede ser una <expresion numerica). Si su valor es negativo, el parametro 
<principio> tiene que ser mayor que el parametro <fin>, pues de no ser asi la variable 
del contador no sera modificada. 

Los bucles FOR ... NEXT pueden ser 'anidados', es decir, programados uno dentro 
de otro. 

No es necesario especificar el nombre de la variable a continuation de NEXT, ya que 
BASIC determina automaticamente a qu6 FOR corresponde cada NEXT 'andnimo'. 

Palabras clave asociadas: NEXT, STEP, TO. 
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FRAME 

FRAME 

10 MODE 

20 PRINT "sin FRAME" 

30 TAG 

40 MOVE 0,200 

50 FOR x=0 TO 500 STEP 4 

60 IF +=1 THEN FRAME 

70 MOVE x,200 

80 PRINT " ";CHR*<143> ; 

90 NEXT 

100 IF +=1 THEN RUN 

110 CLS 

120 TA60FF 

130 PRINT "con FRAME" 

140 +=1 

150 GOTO 30 

run 

Orden. Sincroniza la escritura de caracteres graficos en la pantalla con el retorno del 
haz en el monitor. El efecto global es hacer que el movimiento de simbolos por la pan- 
talla sea mas suave, sin parpadeo ni discontinuidad. 

Palabras clave asociadas: TAG, TAGOFF. 



FRE 

FRE ( (expresiot nuierica) ) 
FRE < (expresioa literal)) 

PRINT FRE(0) 
PRINT FRE<""> 

Funcion. Da el espacio libre de memoria utilizable por BASIC. En la forma FRE (" ") 
realiza una 'limpieza de memoria' antes de dar el numero de bytes libres. 

Palabras clave asociadas: HIMEM, MEMORY. 



GOSUB 

GOSUB <nuiero de linea) 
GOSUB 210 
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Orden. Invoca una subrutina de BASIC; es decir, reconduce el programa hacia el <nii- 
mero de linea> especificada. El final de la subrutina estara indicado por la orden RE- 
TURN; cuando se llega a ella, el programa retorna a la instruction siguiente a aquella 
que invoc6 la subrutina. 

Palabras clave asociadas: RETURN. 



GOTO 

GOTO <nuiero de llnea) 

Orden. Hace que la ejecuci6n del programa salte a la linea especificada. 

Palabras clave asociadas: ninguna. 

GRAPHICS PAPER 

GRAPHICS PAPER Uinta) 

10 MODE 

20 MASK 15 

30 GRAPHICS PAPER 3 

40 DRAW 640,0 

run 

Orden. Especifica la <tinta> del papel de la pantalla de graficos, es decir, el color del 
fondo sobre el que se dibujan los graficos. Cuando se dibujan lineas continuas, el pa- 
pel grafico se hace invisible. En el programa ejemplo, la orden MASK hace que la 
recta que se dibuja sea discontinua y que, por lo tanto, el papel grafico se pueda ver 
debajo de ella. 

La tinta del papel grafico (margen de a 15) se utiliza tambien como fondo de los 
caracteres que se escriben mediante TAG y para reteriir la pantalla grafica cuando no 
se especifica otra tinta tras la instrucci6n CLG. 

Palabras clave asociadas: CLG, GRAPHICS PEN, INK, MASK, TAG, TAGOFF. 

GRAPHICS PEN 

GRAPHICS PEN [<ti«ta>][ , into de foido)] 

10 MODE 

20 GRAPHICS PEN 15 
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30 MOVE 200,0 
40 DRAW 200,400 
50 MOVE 639,0 
60 FILL 15 
run 

Orden. Especifica la <tinta> con la que en lo sucesivo se van a dibujar rectas y puntos. 
El <modo de fondo> puede ser: 

Fondo opaco 

1 Fondo transparente 

(El fondo transparente afecta al papel grafico de los caracteres escritos con TAG y a 
los espacios que quedan entre los trazos de las lineas discontinuas.) 

Se puede omitir cualquiera de los dos parametros, pero no ambos. Si se omite un pa- 
rametro, la caracteristica controlada por el permanece inalterada. 

Palabras clave asociadas: GRAPHICS PAPER, INK, MASK, TAG, TAGOFF. 



HEX$ 

HEX* ( (eipresion eitenM , <ucbura it\ capo)] ) 

PRINT HEX*<255,4) 
00FF 

Funcion. Produce una cadena literal que es la versi6n hexadecimal de la <expresi6n 
numerica). La longitud de la cadena es la especificada por el parametro <anchura de 
campo> (margen de a 1 6). Si la longitud es mayor que la necesaria, el numero de- 
cimal se rellena con ceros por la izquierda; si la longitud es demasiado pequena, la 
cadena resultante no se trunca, sino que consta de todos los caracteres necesarios. 

El valor de la <expresi6n entera) tiene que estar comprendido entre -32768 y +65535. 

Palabras clave asociadas: BIN$, DEC$, STR$, UNT. 

HIMEM 

HI MEM 

PRINT HIMEM 
42619 
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Funcion. Da la direcci6n de la position de memoria mas alta accesible a BASIC (la 
cual puede ser modificada con la orden MEMORY). 

Palabras clave asociadas: FRE, MEMORY, SYMBOL, SYMBOL AFTER. 



IF 

IF <expresio* logica) THEN <opcioi)[ ELSE (opcion)] 

10 MODE 1 

20 x=CINT<RND*100) 

30 PRINT "Adivine mi numero <de a 100)" 

40 INPUT n 

50 IF n<x THEN PRINT ni"es demasiado baj o ..." 

60 IF n>x THEN PRINT ni'es demasiado alto ..." 

70 IF n=x THEN 80 ELSE c=c+l:GOTO 40 

80 PRINT "Muy bien. Lo ha conseguido en"; 

90 PRINT c+l; "intentos! " 

run 

Orden. Determina si la <expresi6n logica) tiene el valor 'verdadero'. Si es asi, ejecuta 
la primera <opcion>. Si la <expresion logica) tiene el valor 'falso', ejecuta la <opcion> 
especificada despues de ELSE; si no se ha incluido ELSE, BASIC pasa a la siguiente 
linea del programa. 

Las ordenes IF ... THEN ... se pueden anidar, sin mas limite que la longitud de la li- 
nea. La orden (o la serie de 6rdenes anidadas) termina en el final de la linea, de modo 
que no es posible poner en la misma linea instrucciones que sean independientes de la 
orden IF ... THEN ... 

Si la <opcion> especificada consiste en un salto de linea, la orden puede tener cualquie- 
ra de las tres formas siguientes: 

IF a=l THEN 100 
IF a=l GOTO 100 
IF a=l THEN GOTO 100 

Palabras clave asociadas: ELSE, GOTO, THEN. 



INK 

INK Uinta), <coJor>[,<coJor>] 

10 MODE l: PAPER 0TPEN 1 
20 FOR p=0 TO 1 
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30 FOR i=0 TO 26 

40 INK p, i 

50 LOCATE 16,12:PRINT " ink " 5 P? " , " 5 i 

60 FOR t=l TO 400: NEXT t,i,p 

70 INK 0, l: INK 1,24:CLS 

run 

Orden. Asigna uno o dos colores a la <tinta> dada. El parametro <tinta> es el numero 
de referenda de la tinta (margen de a 1 5), por el que se la cita en las ordenes PEN 
y PAPER. El primer <color> debe ser una expresion entera cuyo valor este compren- 
dido entre y 26. Si se incluye el segundo <color>, la tinta alterna entre los dos colo- 
res, a una velocidad que se controla con la orden SPEED INK. 

El numero de tintas utilizables simultaneamente depende del modo de pantalla. Vease 
la lista de colores en la parte 8 (tabla 1) del capitulo 1. 

Palabras clave asociadas: GRAPHICS PAPER, GRAPHICS PEN, PAPER, PEN, 
SPEED INK. 



INKEY 

I NKEY Uexpresion entera) ) 

10 IF INKEY<55)<>32 THEN 10 

20 PRINT "Ha pulsado [SHIFT] y V" 

30 CLEAR INPUT 

run 

Funcion. Examina el teclado para determinar si se ha pulsado una tecla determinada. 
La exploration se realiza una vez cada 0.02 s. 

Esta funcion es util para averiguar si se ha pulsado cierta tecla, comprobando si el 
numero generado por INKEY es -1 (el cual es independiente de la situation de [SHIFT] 
y [CTRL]). 

El ejemplo anterior detecta cuando se pulsa V con [SHIFT] y sin [CTRL]. El esquema 
de la numeration de las teclas esta grabado en la carcasa del ordenador, a la derecha 
del teclado, e impreso en el capitulo titulado 'Para su referencia ...' 

Los valores generados por INKEY en funci6n de la situation de las teclas [SHIFT] y 
[CTRL] son los siguientes: 
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Valor generado [SHIFT] 



[CTRL] 



Tecla especificada 



-1 


Indiferente 


Indiferente 


No pulsada 





No pulsada 


No pulsada 


Pulsada 


32 


Pulsada 


No pulsada 


Pulsada 


128 


No pulsada 


Pulsada 


Pulsada 


160 


Pulsada 


Pulsada 


Pulsada 



Palabras clave asociadas: CLEAR INPUT, INKEY$, JOY. 



INKEY$ 

INKEY* 

10 CLS 

20 PRINT "Elija Si o No (S/N) : " 

30 a*= INKEY* 

40 IF a*="" THEN 30 

50 IF a*="s" OR a*="S" THEN 80 

60 IF a*="n" OR a*="N" THEN 90 

70 GOTO 30 

80 PRINT "Ha respond ido SI": END 

90 PRINT "Ha respondido NO" 

run 

Funcion. Examina el teclado para determinar si se ha pulsado alguna tecla; de ser asi, 
genera una cadena literal consistente en el caracter correspondiente a la tecla pulsada. 
Si no se ha pulsado ninguna tecla, genera la cadena vacia. En el programa ejemplo, 
las lineas 30 y 40 forman un bucle que no deja de repetirse mientras no se pulse una 
tecla. 

Palabras clave asociadas: CLEAR INPUT, INKEY. 



INP 

INP (<auiero de puerta}) 

PRINT INP(kFF77> 
255 

Funcion. Da el valor de entrada recibido en la direcci6n de entrada/salida especifica- 
da por el parametro <numero de puerta). 

Palabras clave asociadas: OUT, WAIT. 
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INPUT 

INPUT [#<«presiD« de nuiero de canal), ][; JKcadena literal entre coiillasXseparador)] 
<lista de:< variable) 

10 MODE 1 

20 INPUT "Escriba Ids dos factores (separados 

por una coma) " ) a, b 
30 PRINT a; "por";b; "es" ; "a*b 
40 GOTO 20 
run 

Orden. Capta una entrada de datos por el canal especificado (por el #0, si no se es- 
pecifica ninguno). 

El primer signo de punto y coma [;] inhibe la funcion de retorno del carro/avance de 
linea que de otra forma se produciria al terminar de ejecutarse la instrucci6n. 

El <separador> tiene que ser una coma o un punto y coma. El punto y coma hace que 
se escriba el signo de interrogation; la coma lo impide. 

Si el dato introducido es de tipo incorrecto (por ejemplo, cuando se escribe la letra O 
en lugar del numero en la captaci6n de un dato numerico), BASIC responde con el 
mensaje: 

?Redo -from start 

y cualquier otro texto que se haya programado. 

Toda introducci6n de datos a traves del teclado debe terminar con la pulsation de la 
tecla [ENTER]. 

Palabras clave asociadas: LINE INPUT. 



INSTR 

INSTR (Kposicion it partida), Kcadena ei la que se busca), <cadena buscada)) 

10 CLS:FOR n=l TO 26 

20 al-fabeto*=al-fabeto*+CHR*(n + 64> 

30 NEXT 

3/36 Lista completa de las palabras clave 



40 INPUT "Escriba una letra " ; a* 

50 b*=UPPER*(a*) 

60 PRINT b*5" es la letra numero"; 

70 PRINT INSTR(alfabeto*,b*) ; 

80 PRINT "del alfabeto" : PRINT 

90 GOTO 40 

run 

Funcion. Determina si la <cadena buscada) esta contenida en la <cadena en la que se 
buscaX Si lo esta, da la position del caracter de la <cadena en la que se busca) en el 
que se ha producido la primera coincidencia. Si no lo esta, da el numero 0. 

El parametro optional (position de partida) indica en que lugar de la <cadena en la 
que se busca) debe empezar la biisqueda; debe ser una expresion entera que de un va- 
lor comprendido entre 1 y 255. 

Palabras clave asociadas: ninguna. 

INT 

I NT ( <«presio« lucrica) ) 

PRINT INT<-1.995) 
-2 

Funcion. Redondea el valor de la <expresion numerica) al numero entero inferior, des- 
preciando la parte decimal. Da el mismo valor que FIX cuando el argumento es po- 
sitivo, pero una unidad menos que FIX cuando el argumento es negativo y no entero. 

Palabras clave asociadas: CINT, FIX, ROUND. 

JOY 

JOY <<expresio» entera)) 

10 PRINT "Para detener el programa "; 

20 PRINT "accione el joystick" 

30 IF JOY(0)<>0 THEN END 

40 GOTO 10 

run 

Funcion. Lee bit a bit la situation del joystick especificado por la <expresi6n entera) 
(que debe valer o 1 ). Genera un valor decimal segiin la siguiente tabla: 
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Bit 


Decimal 





Arriba 


1 


1 

2 
3 


Abajo 

Izquierda 

Derecha 


2 
4 
8 


4 
5 


Disparo 2 
Disparo 1 


16 
32 



Asi, en el programa ejemplo, si el bot6n principal de disparo (Disparo 2) del primer 
joystick esta accionado mientras la empunadura esta inclinada hacia la izquierda, la 
funcion JOY(0) da el mimero decimal 20, que es la suma de 16 (Disparo 2) mas 4 
(Izquierda). 

En el capitulo 'Para su referencia ...' damos mas informaci6n acerca de los joysticks. 
Palabras clave asociadas: CLEAR, INPUT, INKEY. 

KEY 

KEY(<coli9D expusible) , <expresio» literal) 

KEY 11, "border 13:paper 0:pen l:ink 0,13: 
ink l,0:mode 2: 1 ist"+CHR*<13) 

Orden. Asigna la <expresion literal) al <c6digo expansible) especificado. El sistema ma- 
neja 32 c6digos expansibles, del al 31, identificados por los codigos de tecla 128 a 
159. Los c6digos de tecla del 128 (generado por la tecla del teclado numerico) al 
140 (generado por la tecla pequefia [ENTER] con [CTRL]) tienen asignadas implici- 
tamente las funciones de escribir los digitos del al 9, el punto, [ENTER] y 
RUN"[ENTER], respectivamente, pero se les pueden asignar otras <expresiones lite- 
rales) diferentes con KEY. Los codigos expansibles 13 a 31 (c6digos de tecla 141 a 
159) tienen asignada implicitamente la cadena vacia, pero se los puede expandir con 
KEY para luego asignarlos a teclas concretas con KEY DEF. 

El parametro <codigo expansible) incluido en la orden KEY puede estar en el margen 
de a 31, o bien en el margen 128 a 159 para reflejar directamente codigos de tecla. 
(Vease la ilustracion del capitulo 'Para su referencia ...'.) 

Las <expresiones literales) con las que se expandan los codigos expansibles pueden ocu- 
par como maximo un total de 120 caracteres. Si se intenta sobrepasar ese limite se 
produce el error 'Improper argument' ('argumento inadecuado', error mimero 5). 

Palabras clave asociadas: KEY DEF. 
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KEY DEF 

KEY DEF <Miiero de tecla) , <repetir>I , <aorial>[ , <shift>[ , <CDitrol<]]] 

KEY 159, "esta es la tecla TAB" 
KEY DEF 68,1,159 

Despues de escribir estas ordenes, pulse la tecla [TAB]. 

Orden. Define los codigos de tecla que van a ser generados por la tecla de numero 
especificado. El <numero de tecla) tiene que estar en el margen de a 79 (veanse los 
numeros de tecla en el diagrama grabado a la derecha del teclado, o bien en el esque- 
ma del capitulo 'Para su referenda ...'). En la definition se pueden incluir los codigos 
de tecla que deben ser generados por la tecla cuando se la pulsa sola y cuando se la 
pulsa en combination con [SHIFT] y [CTRL]. Todos estos parametros son opcionales. 

El parametro <repetir> puede tener los valores 1 (para que la tecla sea de repetition) 
o (para que no lo sea). La velocidad de repetici6n se puede definir con SPEED KEY. 

En el ejemplo anterior, primero se asigna una cadena literal al codigo de tecla 1 59 
(equivalente al codigo expansible 31), y luego se especifica que la tecla numero 68 (la 
tecla [TAB]) debe ser de repetition (1 ) y debe generar el codigo 1 59 cuando se la 
pulsa sola. 

La situaci6n normal se restaura, en el ejemplo anterior, mediante la orden: 

KEY DEF 68,0,9 

ya que el 9 es el codigo ASCII normalmente generado por [TAB]. 

Palabras clave asociadas: KEY, SPEED KEY. 

LEFT$ 

LEFTS Uexpresion literal), <lo>gitud deseada)) 

10 CLS 

20 a*="AMSTRAD n 

30 FOR n=l TO 7 

40 PRINT LEFT*(a*,n) 

50 NEXT 

run 

Funcion. Produce una cadena que consta del numero de caracteres dado por <longitud 
deseada) (margen de a 255) tornados de la izquierda de la <expresion literal). Si la 
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longitud de la <expresion literal) es menor que la <longitud deseada), la cadena produ- 
cida es la <expresion literal) completa. 

Palabras clave asociadas: MID$, RIGHT$. 



LEN 

LEN ( <expresion literal) ) 

10 LINE INPUT "Escriba una -frase " ; a* 

20 PRINT "La -frase tiene"; 

30 PRINT LEN (a*) ; "caracteres. " 

run 

Funcion. Da la longitud de la <expresion literal), es decir, el numero de caracteres de 
que consta esta. 

Palabras clave asociadas: ninguna. 

LET 

LET <variable>=<expresion) 
LET x = 100 

Orden. Asigna un valor a una variable. Es una reliquia de las primeras versiones de 
BASIC, innecesaria en el BASIC del AMSTRAD. En el ejemplo anterior habria bas- 
tado con escribir: 

x = 100 
Palabras clave asociadas: ninguna. 

LINE INPUT 

LINE INPUT l#<expresioB de iwiero de canal), 31; IKcadena entre cmillasXseparador)] 
(variable literal) 

10 LINE INPUT "Escriba una linea de texto " ; a* 

20 CLS 

30 PRINT "La variable a* es igual a: " 

40 PRINT a* 

run 
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Orden. Acepta la introduction de una linea entera de texto por el canal especificado 
(o por el #0, si no se especifica ninguno). El primer signo de punto y coma [;] es op- 
tional y, si se lo incluye, inhibe el retorno del carro/ avance de linea que de otra forma 
se realizaria al terminar de ejecutarse la orden. 

El <separador> tiene que ser una coma o un punto y coma. El punto y coma hace que 
se escriba el signo de interrogation; la coma lo impide. 

La captation de datos a traves del teclado debe terminar con la pulsation de la tecla 
[ENTER]. 

La captaci6n de datos por el canal #9 (disco o cinta) termina cuando se recibe un 
caracter de retorno del carro o cuando se han recibido 255 caracteres (lo que antes 
ocurra). 

Palabras clave asociadas: INPUT. 



LIST 

LIST Miargen de oueros de linea)] [ , #<expresion de nuiera de canal)] 

LIST 100-1000, #1 

Orden. Envia el listado de las lineas especificadas al canal especificado. El canal im- 
plicito es el #0. La impresora es el canal #8. La action de listar se puede suspender 
momentaneamente pulsando [ESC] una vez, tras lo cual se la puede reanudar pulsan- 
do la barra espaciadora o abandonar definitivamente pulsando [ESC] por segunda vez. 

Si se omite el primer numero de <margen de numeros de linea), se entiende 'desde el 
principio del programa hasta ...'; si se omite el segundo numero, se entiende '... hasta 
el final del programa'. Asi, 

LIST -200 
lista las primeras lineas del programa, hasta la 200 inclusive. En cambio, 

LIST 50- 
lista desde la linea 50 en adelante. Finalmente, 

LIST 
lista el programa completo. 
Palabras clave asociadas: ninguna. 
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LOAD 

LOAD (noibre de ficheroH, (expresioii de direct ion de ieioria)l 
LOAD "i ichero.xyz-.B^AFe 

Orden. Lee un programa de BASIC grabado en disco y lo carga en la memoria, reem- 
plazando al actual. Si se especifica la <expresion de direccion de memoria) opcional, 
LOAD carga un fichero binario en esa direccion, en lugar de hacerlo en la direcci6n 
a partir de la cual se lo grabo. 

Los programas de BASIC protegidos no se pueden cargar por este metodo, pues el 
ordenador los borra inmediatamente de la memoria. Esos programas deben ser car- 
gados con RUN o CHAIN. 

Palabras clave asociadas: CHAIN, CHAIN MERGE, MERGE, RUN, SAVE. 



LOCATE 

LOCATE [#<expresioii de nuiero de canal) , Kcoordenada x), (coordeiiada y) 

10 MODE 1 

20 FOR n=l TO 20 

30 LOCATE n,n 

40 PRINT CHR*<143) ; "posicion"} 

50 PRINT n; n , a ;n 

60 NEXT 

run 

Orden. Coloca el cursor de texto del canal indicado en la position especificada por 
las coordenadas x,y. La position 1,1 es el extremo superior izquierdo de la ventana. 
El canal #0 es el canal implicito. 

Palabras clave asociadas: WINDOW. 



LOG 

LOG < (expresion nuierica) ) 

PRINT L0G<9999) 
9.21024037 
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Funcion. Calcula el logaritmo natural o neperiano de la <expresion numerica), la cual 
debe ser mayor que cero. 

Palabras clave asociadas: EXP, LOG 1 0. 



LOG 10 

LOG10(<expresioii RUHrica)) 

PRINT LOG10<9999> 
3.99995657 

Funcion. Calcula el logaritmo decimal de la <expresion numerica), la cual debe ser ma- 
yor que cero. 

Palabras clave asociadas: EXP, LOG. 



LOWER$ 

LOWER* ( (expresion literal)) 

10 a*="OBSERVE COMO SE CONVIERTEN LAS LETRAS A " 

20 PRINT LOWER*<a*+"MINUSCULAS") 

run 

Funcion. Da una cadena literal que es copia de la <expresion literal) especificada, pero 
convirtiendo las letras minusculas en mayusculas y dejando inalterados los restantes 
caracteres. Esta funcion es util en el proceso de datos que puedan contener minusculas 
mezcladas con mayusculas. 

Palabras clave asociadas: UPPER$. 



MASK 

MASK Kexpresio* entera>][ , (situation del priier puato)] 

10 CLSCTAG 

20 MASK l:MOVE 0,250:DRAUIR 240,0 

30 PRINT "(binario 00000001 en la mascara)"; 

40 MASK 3: MOVE 0,200:DRAWR 240,0 

50 PRINT "(binario 00000011 en la mascara)"; 

60 MASK 7: MOVE 0,150:DRAWR 240,0 
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70 PRINT "(binario 00000111 en la mascara)"; 

80 MASK 15: MOVE 0,100:DRAWR 240,0 

90 PRINT " (binario 00001111 en la mascara)"; 

run 

Orden. Define una 'mascara' o plantilla que se puede utilizar en el dibujo de rectas. 
La <expresion entera) (margen de a 255) determina la situation de los diversos bits 
de cada grupo de 8 pixels adyacentes: para pixel apagado, 1 para pixel iluminado. 

La <situacion del primer punto> determina si el primer punto de la recta debe ser ilu- 
minado (1) o no (0). 

Se puede omitir cualquiera de los dos parametros, pero no ambos. La situation de la 
caracteristica correspondiente al parametro omitido permanece inalterada. 

Palabras clave asociadas: DRAW, DRAWR, GRAPHICS PAPER, GRAPHICS 
PEN. 



MAX 

MAX (Uista deXeipresion ntnerica)) 

10 n=66 

20 PRINT MAX<l,n,3,6,4,3) 
run 
66 

Funcion. Da el valor maximo de los incluidos en la <lista de:<expresion numerica). 
Palabras clave asociadas: MIN. 

MEMORY 

MEMORY <expresioii it direccioa it leuria) 
MEMORY &20AA 

Orden. Determina el espacio de memoria utilizable por BASIC al fijar la direction de 
su limite superior. 

Palabras clave asociadas: FRE, HIMEM, SYMBOL, SYMBOL AFTER. 
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MERGE 

MERGE <m»bre del fichero) 

MERGE "nuevopro.bas" 

Orden. Lee un programa grabado en disco y lo superpone al actualmente almacenado 
en la memoria. 

Las lineas del programa leido se superponen y sustituyen a las que hubiera en el an- 
tiguo con el mismo niimero. 

Los ficheros protegidos (grabados con ,p) no pueden ser mezclados por este procedi- 
miento con el programa actual. 

Palabras clave asociadas: CHAIN, CHAIN MERGE, LOAD. 

MID$ 

MID$(<expresit» literal), (position de partida>I , <loitgitud de la subcadena>] > 

10 MODE 1:Z0NE 3 

20 a*=" MASSACHUSETTS" 

30 PRINT "Deletreame "5a* 

40 PRINT "Vale ...": PRINT 

50 FOR n=l TO LEN(a*) 

60 PRINT MID*<a*,n, 1) , 

70 FOR t=i TO 700: NEXT t,n 

80 print:print 

90 INPUT "Ahora escriba usted otra palabra " J a* 

100 GOTO 50 

run 

Funcion. Genera una cadena literal copiada de la <expresi6n literal). El numero de ca- 
racteres copiados es el dado por <longitud de la subcadena); la copia empieza en el 
caracter especificado por <posici6n de partida). Si no se especifica la <longitud de la 
subcadena), se copian todos los caracteres restantes, desde <posicion de partida) hacia 
la derecha. 

Si la <posicion de partida) es mayor que la longitud de la <expresion literal), se genera 
la cadena vacia. El margen de <posicion de partida) es de 1 a 255. El de <longitud de 
la subcadena) es de a 255. 

Palabras clave asociadas: LEFT$, RIGHT$. 
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MID$ 

MID* ((variable literal), (posicioi de insercion) 

[ , <lo»9itud de cadena nueva)] ) =<expresio» de cadena nueva) 

10 a*="Amstrad n 

20 MID*(a*,3,2)="XX" 

30 PRINT a* 

run 

AmXXrad 

Orden. Reemplaza un niimero de caracteres de la <variable literal), dado por <longitud 
de cadena nueva), con caracteres tornados de <expresion de cadena nueva). La susti- 
tucion empieza en <posicion de inserci6n>. 

Observese que cuando se utiliza MID$ como orden, su argumento debe ser una Va- 
riable literal); no vale, pues, una cadena literal constante. 

Palabras clave asociadas: LEFT$, RIGHTS. 

MIN 

MIN(<lista de:<expresion nuierica)) 

PRINT MIN(3,6,2.999,8,9) 
2.999 

Funcion. Da el valor minimo de los incluidos en la <lista de:<expresion numdrica). 
Palabras clave asociadas: MAX. 

MOD 

<ar9uiento) MOD (arjuiento) 

PRINT 10 MOD 3 

1 
PRINT 10 MOD 5 



Operador. Da el resto de la division entera del primer <argumento> por el segundo. 
Para clave asociadas: ninguna. 
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MODE 

MODE (expresiDB eitera) 

10 m=l 

20 PRINT "Esto es modo"Sm 

30 PRINT "ahora pulse una tecla" 

40 IF INKEY*="" THEN 40 

50 m=m+l:lF m>2 THEN m=0 

60 MODE m 

70 GOTO 20 

run 

Ocfew. Cambia el modo de pantalla (0, 1 o 2) y la borra tifiendola con la tinta numero 
(que puede no ser la tinta actualmente asignada al papel). Todas las pantallas de 
texto y graficas se restauran (coincidentes con la pantalla completa); los cursores de 
texto y grafico quedan en sus origenes respectivos. 

Palabras clave asociadas: ORIGIN, WINDOW. 



MOVE 

MOVE (coordeaada i> , <coorde»ada y>I , KtiitaHI , dodo de tinta)]] 

10 MODE i:tag 

20 x=RND*800-100:y=RND*430 

30 MOVE x,y 

40 PRINT "Estoy aqui"! 

50 GOTO 20 

run 

Orden. Lleva el cursor grafico a la position absoluta especificada por las coordenadas 
x.y. Se puede utilizar el parametro opcional <tinta> para cambiar la tinta de la pluma 
grafica (margen a 1 5). 

El parametro opcional <modo de tinta) determina la futura forma de interacci6n entre 
la tinta con la que se dibuje y la ya existente en la pantalla. Los cuatro modos son: 

Normal 

1 XOR (OR exclusivo) 

2 AND 

3 OR 

Palabras clave asociadas: MOVER, ORIGIN, XPOS, YPOS. 
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MOVER 



MOVER Uncwento de x) , Uncreiento de y>[ , [<tinta>H , <iodo de tinta)]] 

10 MODE l: TAG: MOVE 0,16 

20 PRINT "primero se sube"; 

30 FOR n=l TO 8 

40 MOVER -56, 16 

50 PRINT "sube"; : NEXT: PRINT " y luego se baja"; 

60 FOR n=l TO 8 

70 MOVER -56,-16 

80 PRINT "baja"; : NEXT 

run 



Orden. Lleva el cursor grafico a un punto cuya position, referida a la position actual, 
viene dada por los incrementos de x e y. Se puede utilizar el parametro opcional <tin- 
ta> para cambiar la tinta de la pluma grafica (margen de a 1 5). 

El parametro opcional <modo de tinta) determina la futura forma de interaction entre 
la tinta con la que se dibuje y la ya existente en la pantalla. Los cuatro modos son: 

Normal 

1 XOR (OR exclusivo) 

2 AND 

3 OR 



Palabras clave asociadas: MOVE, ORIGIN, XPOS, YPOS. 

NEW 

NEW 

NEW 



Orden. Borra el programa de BASIC actualmente residente en la memoria. Se pierden 
las definiciones de teclas pero no se modifican las caracteristicas de pantalla (MODE, 
PEN, PAPER, INK, etc.) ni se borra la pantalla. 

Palabras clave asociadas: ninguna. 
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NEXT 

NEXT Klista de: (variable)] 

10 FOR a=l TO 3 

20 FOR b=0 TO 26 

30 MODE 1 

40 PEN a: BORDER b 

50 PRINT "pen-ja;" border";b 

60 FOR c=l TO 500 

70 NEXT c,b,a 

run 

Orden. Senala el final del bucle FOR ... NEXT. La orden NEXT puede ser anonima 
o mencionar el nombre de la variable del FOR correspondiente. Observese en el ejem- 
plo anterior que las variables de la lista deben estar en orden inverso al de sus corres- 
pondientes ordenes FOR, de modo que los bucles no queden solapados, sino anidados. 

Palabras clave asociadas: FOR, RESUME, STEP, TO. 



NOT 



NOT (argraento) 

IF NOT ■juiVptp*' THEN PRINT ■verdadero" ELSE PRINT "false* 

falso 

IF NOT "jatoV'perro" THEN PRINT "verdadero' ELSE PRINT 'falso* 

verdadero 

PRINT NOT -1 
I 

PRINT NOT I 
-1 

Operador. Realiza la negation 16gica sobre enteros inviertiendo todos los bits del 
argumento. 

En la parte 2 el capftulo 'Cuando usted guste ...' daremos mas amplia informacion so- 
bre las operaciones logicas. 



Palabras clave asociadas: AND, OR, XOR. 
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ON BREAK CONT 

ON BREAK CONT 

10 ON BREAK CONT 

20 PRINT "El programs CONTinua aunque usted intente 

interrumpirlo con [ESC]" : PRINT 
30 FOR t = l TO 1000: NEXT: GOTO 20 
run 

Orden. Inhibe la posibilidad de interrumpir el programa pulsando la tecla [ESC], pues 
intercepta la interrupci6n y continua la ejecucion. Esta orden se debe utilizar con pre- 
caution, pues el programa no podra ser detenido mas que reinicializando la maquina; 
grabe el programa antes de ejecutarlo. 

Dentro de un programa, esta orden se anula con ON BREAK STOP. 

Palabras clave asociadas: ON BREAK GOSUB, ON BREAK STOP. 

ON BREAK GOSUB 

ON BREAK GOSUB <Mii*ro it linea) 

10 ON BREAK GOSUB 40 

20 PRINT "Programa -f uncionando" 

30 GOTO 20 

40 CLS:PRINT "Pulsando dos veces [ESC] "; 

50 PRINT"5e invoca la subrutina" 

60 FOR t=l TO 2000: NEXT 

70 RETURN 

run 

Orden. Provoca el salto a la subrutina especificada por <numero de linea) cuando se 
pulsa dos veces la tecla [ESC]. 

Palabras clave asociadas: ON BREAK CONT, ON BREAK STOP, RETURN. 

ON BREAK STOP 

ON BREAK STOP <i>uero de linea) 

10 ON BREAK GOSUB 40 

20 PRINT "Programa -f uncionando" 
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30 GOTO 20 

40 CLS: PRINT "Pulsando dos veces [ESC] "; 

50 PRINT"se invoca la subrutina" 

60 FOR t = l TO 2000: NEXT 

65 ON BREAK STOP 

70 RETURN 

run 

Orden. Anula las ordenes ON BREAK CONT y ON BREAK GOSUB, permitiendo 
asi que el programa pueda ser interrumpido normalmente con la tecla [ESC]. En el 
programa ejemplo, la orden ON BREAK GOSUB solo actiia una vez, pues la linea 
65 de la rutina de interrupci6n la anula. 

Palabras clave asociadas: ON BREAK CONT, ON BREAK GOSUB. 



ON ERROR GOTO 

ON ERROR GOTO <aaiero it linea) 

10 ON ERROR GOTO 60 

20 CLS:PRINT "Si detecto un error, "; 

30 PRINT "listare el programa" 

40 FOR t=l TO 4000: NEXT 

50 GOTO 100 

60 PRINT "Hay un error en la linea"; 

70 PRINT ERL: PRINT: LIST 

run 

Orden. Provoca el salto a la linea especificada cuando se detecta un error en el 
programa. 

La forma ON ERROR GOTO desactiva la gestion de errores programada por el 
usuario y activa la normal de BASIC. 

Vease tambien la orden RESUME. 

Palabras clave asociadas: DERR, ERL, ERR, ERROR, RESUME. 

ON <expresi6n> GOSUB 

ON (selector) GOSUB <lista 4e:<*uiero ie linea) 

10 PAPER 0:PEN 1:INK 0,1 

20 CLS! PRINT "MENU DE OPCIONES" : PRINT 
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30 PRINT "1. Cambiar borde":PRINT 

40 PRINT "2. Cambiar pluma" : PRINT 

50 PRINT "3. Cambiar modo": PRINT 

60 INPUT "Elija del 1 al 3: n , x 

70 ON x GOSUB 90,110,130 

80 GOTO 20 

90 b=b-l:IF b<0 THEN b=26 

100 BORDER b: RETURN 

110 p=p-l:IF p<2 THEN p=26 

120 INK l,p: RETURN 

130 m=m-l:lF m<0 THEN m=2 

140 MODE m: RETURN 

run 

Orden. Determina, en funcion del valor de (selector), que subrutina de BASIC debe 
ser invocada. El margen de valores de (selector) es de a 255. La rutina elegida es la 
que se encuentra en la lista en el lugar indicado por (selector). Asi, en el ejemplo an- 
terior, si x=l se invoca la rutina de la linea 90; si x=2, la de la linea 110; y si x=3, la 
de la linea 130. 

Si el valor de (selector) es cero o mayor que el numero de lineas citadas en la (lista de 
numeros de linea), no se invoca ninguna subrutina. 

Palabras clave asociadas: RETURN. 



ON (expresidn) GOTO 

ON {selector) GOTO (lista 4e:<nwero de linea) 



OPCIONES": PRINT 
programa" : PRINT 
amp liar": PRINT 
del disco": PRINT 
a 1 3 : " . x 



10 CLS:PRINT 


"MENU DE i 


20 PRINT "1. 


Listar pn 


30 PRINT "2. 


Ed i tar y 


40 PRINT "3. 


Catalogo 


50 INPUT "El 


ija del 1 


60 ON x GOTO 


80,90, 100 


70 GOTO 10 




80 LIST 




90 AUTO 




100 CAT 





run 



Orden. Determina, en funcion del valor de (selector), a que linea del programa debe 
saltar la ejecucion. El margen de valores de (selector) es de a 255. La linea elegida 
es la que se encuentra en la lista en el lugar indicado por (selector). Asi, en el ejemplo 
anterior, si x=l se salta a la linea 80; si x=2, a la linea 90; y si x=3, a la linea 100. 
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Si el valor de <selector> es cero o mayor que el numero de lineas citadas en la <lista de 
numeros de linea), no se produce el salto. 

Palabras clave asociadas: RETURN. 



ON SQ GOSUB 

ON SGM<ca«al>) GOSUB <awero de liaea> 

10 ENV 1, 15,-1, 1 

20 ON SQ<1) GOSUB 60 

30 MODE 0: ORIGIN 0,0,200,440,100,300 

40 FOR x = l TO 13: FRAME: MOVE 330, 200, x 

50 FILL x: NEXT: GOTO 40 

60 READ s:IF s=0 THEN RESTORE: GOTO 60 

70 SOUND 1,5,25,15,1 

80 ON SGM1) GOSUB 60: RETURN 

90 DATA 50,60,90,100,35,200,24,500,0 

run 

Orden. Invoca la subrutina especificada cuando hay espacio libre en la cola de soni- 
dos. El parametro <canaD debe ser una expresion entera que de uno de los siguientes 
valores: 

1 para el canal A 

2 para el canal B 
4 para el canal C 

En la parte 2 del capitulo 'Cuando usted guste ...' daremos mas amplia information 
sobre los sonidos. 

Palabras clave asociadas: RETURN, SOUND, SQ. 



OPENIN 

OPEN IN <nmbre de fichero) 

10 REM abrir un -fichero del disco para entrada 

20 OPENIN "datos": INPUT #9, a, a* 

30 CLOSEIN:PRINT "Los dos valores son:" 

40 PRINT: PRINT a, a* 

run 
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Orden. Abre, en direction de entrada, un fichero grabado en disco para hacerlo ac- 
cesible al programa. El fichero tiene que ser de tipo ASCII. 

El programa anterior solo funciona si se ha creado previamente el fichero (por ejem- 
plo, con el programa siguiente). 

Palabras clave asociadas: CLOSEIN, EOF. 

OPENOUT 

OPENOUT <noibre del fichero) 

10 REM abrir un -fichero en el disco para salida 

20 INPUT "Escriba un numero: " , a 

30 INPUT "Escriba una palabra: " , a* 

40 OPENOUT "datos" 

50 WRITE #9, a, a* 

60 CLOSEOUT: PRINT "Datos grabados en disco" 

run 

Orden. Abre, en direcci6n de salida, un fichero para su grabacion en disco. 

Palabras clave asociadas: CLOSEOUT. 

OR 

(arguiento) AND <arguiei>to> 

IF -jiaRVpepe' OR ■perroVgato' TIEN PRINT •verdadero" ELSE PRINT '♦also 1 

verdadero 

IF 'pepeV'juan 1 OR 'gato^'perro' THEN PRINT ■verdadero 1 ELSE PRINT 'falso' 

♦also 

IF ■juanVpepe' OR "gato^'perro 1 THEN PRINT ■verdadero 1 ELSE PRINT 'falso 1 

verdadero 

PRINT 1 OR 1 

1 
PRINT % OR % 

I 
PRINT 1 OR t 

1 

Operador. Realiza la operation logica 'o' bit a bit entre enteros. El resultado es 1 a 
menos que ambos bits sean 0. 
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Para mas amplia informaci6n sobre operaciones logicas, consulte la parte 2 del capi- 
tulo titulado 'Cuando usted guste ...'. 

Palabras clave asociadas: AND, NOT, XOR. 



ORIGIN 

ORIGIN <x>,<y>[,<izquierda>,<4erecha>,<arriba>,<abajo>] 

10 MODE l: BORDER 13: TAG 

20 ORIGIN 0,0,100,540,300,100 

30 GRAPHICS PAPER 3:CLG 

40 FOR x=550 TO -310 STEP -10 

50 MOVE x,206 

60 PRINT "Esta es una ventana gra-fica "; 

70 FRAME: NEXT: GOTO 40 

run 

Orden. Traslada el origen de graficos (nuevo punto 0,0) a la position especificada 
por <x> e <y>. 

Al mismo tiempo se pueden especificar las dimensiones de una pantalla grafica dando 
los cuatro ultimos parametros (opcionales). Si estos parametros definen posiciones ex- 
ternas a la pantalla, el borde de la ventana sera el borde de la pantalla. 

Palabras clave asociadas: CLG. 



OUT 

OUT < Bluer o it pucrta), <eipresion entera) 
OUT kF8F4,&!FF 

Orden. Envia el valor de <expresion entera) (margen de a 255) a la direction espe- 
cificada por <numero de puerta). 

Esta orden no debe ser utilizada si no se sabe cuales son sus efectos. 

Palabras clave asociadas: INP, WAIT. 
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PAPER 

PAPER [**<expresion it nuiero it canal), ]<ti»ta> 

10 MODE 0:PEN 0IINK 0,13 

20 FOR p=l TO 15 

30 PAPER p:CLS 

40 LOCATE 7,12:PRINT "paper" 5p 

50 FOR t=l TO 500: NEXT t,p 

run 

Orden. Establece que tinta se va a utilizar para escribir el fondo (papel) de los carac- 
teres. Si los caracteres se envian en la pantalla de texto, la celda se rellena con el color 
actual del papel antes de escribir el caracter (a menos que se haya elegido el modo 
transparente). 

Si se omite la <expresion de numero de canal) se supone el #0. 

El numero de tintas utilizables simultaneamente depende del mpdo de pantalla. 

Palabras clave asociadas: GRAPHICS PAPER, INK, PEN. 



PEEK 

PEEK (<expresion it direction it ieaoria>) 

10 MODE l:ZONE 7 

20 WINDOW 1,40, 1,2: WINDOW #1,1,40,3,25 

30 PRINT "direccion de memoria" 

40 LOCATE 20,1: PRINT "contenido" 

50 FOR n=0 TO 65535 

60 p=PEEK(n) 

70 PRINT #l,n," <fc-;HEX*<n) ; ") "; 

80 PRINT ttl,TAB(20) 5p, " (8c"5HEX*(p) ; ") " 

90 NEXT 

run 

Funcion. Da el contenido de la posici6n de memoria especificada por el argumento, 
el cual debe estar en el margen de &0000 a &FFFF (0 a 65535). En todos los casos, 
el valor producido sera el contenido de la posici6n de memoria de la RAM (no de la 
ROM) y estara entre &00 y &FF (entre y 255). 

Palabras clave asociadas: POKE. 
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PEN 

PEN [#<expresion de nuiero de canal), H<tinta)H , dodo de foitdo)] 

10 MODE 0: PAPER 0:INK 0,13 

20 FOR p=l TO 15 

30 PEN p: PRINT SPACE* (47) ; "pen"; p 

40 FOR t=l TO 500: NEXT t,p:GOTO 20 

run 

Or den. Establece la <tinta> (margen de a 15) con la que se escribiran los caracteres 
en lo sucesivo en el canal especificado (en el #0 si no se especifica ninguno). El pa- 
rametro <modo de fondo> puede ser 1 (transparente) o (opaco). 

Se puede omitir cualquiera de los ultimos parametros, pero no ambos. La caracteris- 
tica correspondiente al parametro omitido permanece inalterada. 

Palabras clave asociadas: PAPER. 

PI 

PI 

PRINT PI 
3. 14159265 

Funcion. Da el valor del numero w, relation de la longitud al diametro de la 
circunferencia. 

Palabras clave asociadas: DEG, RAD. 

PLOT 

PLOT (coordenada x) , <coordenada y>[ , [<ti»tal[ , dodo de tinta)]] 

10 MODE l: BORDER 0: PAPER 0:PEN 1 

20 INK 0,0:INK 1,26:INK 2,13,26:DEG 

30 FOR x=l TO 360: ORIGIN 320,200 

40 DRAW 50*COS(x) ,50*SIN<x) , 1 

50 PLOT 100*COS<x) ,25*SIN<x) : NEXT 

60 ORIGIN 0,0: t=TIME+700: WHILE TIME<t 

70 PLOT RND*640,RND*400:WEND 

80 PLOT RND*640,RND*400,2 

90 GOTO 90 

run 
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Orden. Dibuja un punto en la pantalla grafica, en la position absoluta especificada 
por las coordenadas x,y. Tambien se puede especificar la <tinta> en la que se debe di- 
bujar (margen de a 1 5). 

El parametro optional <modo de tinta> determina la forma de interaction entra la tin- 
ta con la que se dibuja y la ya presente en la pantalla. Los cuatro modos son: 

Normal 

1 XOR (OR exclusivo) 

2 AND 

3 OR 

Palabras clave asociadas: GRAPHICS PEN, PLOTR. 



PLOTR 

PLOTR <incrraento de x) , <increiento de y>[ , KtintaH , dodo de tinta>13 

10 REM dibujo de rectas con las teclas del cursor 

20 BORDER 0: GRAPHICS PEN 1 

30 MODE l:PLOT 320,200 

40 IF INKEY(0)=0 THEN PLOTR 0,1 

50 IF INKEY(1)=0 THEN PLOTR 1,0 

60 IF INKEY(2)=0 THEN PLOTR 0,-1 

70 IF INKEY(8)=0 THEN PLOTR -1,0 

80 IF INKEY(9)=0 THEN 30: REM copy = borrar 

90 GOTO 40 

run 

Orden. Dibuja un punto en la pantalla grafica en una position que, referida a la ac- 
tual, viene dada por los incrementos de x e y. Se puede utilizar el parametro optional 
<tinta> para cambiar la tinta de la pluma grafica (margen de a 1 5). 

El parametro optional <modo de tinta) determina la futura forma de interaction entre 
la tinta con la que se dibuja y la ya presente en la pantalla. Los cuatro modos son: 

Normal 

1 XOR (OR exclusivoo) 

2 AND 

3 OR 

Palabras clave asociadas: GRAPHICS PEN, PLOT. 
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POKE 

POKE <expresion de direction de raoria), (expresioR entera) 

10 FOR m=49152 TO 65535 
20 POKE m, 100 
30 NEXT 
run 

Orden. Escribe el valor de la <expresion entera) (margen de a 255) en la memoria de 
la maquina (RAM), en la position especificada por el parametro <expresion de direc- 
tion de memoria). 

Esta orden no se debe utilizar si no se sabe cuales son sus efectos. 

Palabras clave asociadas: PEEK. 



POS 

POS ( #<expresion de Ruiero de canal)) 

10 MODE i: BORDER 0: LOCATE 8,2 

20 PRINT "Utilice las teclas de cursor a la 

izquierda y cursor a la derecha" 
30 WINDOW 1,40, 12, 12: CURSOR 1,1 
40 FOR n=l TO 19:PRINT CHR* (9) ; : NEXT 
50 IF INKEY(1)<>-1 THEN PRINT CHR*<9); 
60 IF INKEY<8)<>-1 THEN PRINT CHR*(8); 
70 LOCATE #1,2,24 
80 PRINT #l,"cursor de texto "; 
90 PRINT #1, "posicion horizontal ="; 
100 PRINT #1, POS (#0) : GOTO 50 
run 

Funcion. Da la position horizontal del cursor de texto referida al borde izquierdo de 
la pantalla. El parametro <expresion de niimero de canal) tiene que ser especificado, 
aunque sea el #0. 

POS(#8) da la position horizontal de la cabeza impresora, siendo 1 la position del 
extremo izquierdo. 

POS(#9) da la position logica del canal del disco, esto es, el niimero de caracteres 
enviados al disco despues del ultimo retorno del carro. 

Palabras clave asociadas: VPOS, WINDOW. 
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PRINT 

PRINT [#<expresion de iwnero de canal), lKlista deKelewnto que se escribe)] 

10 a*="corta" 

20 b*="esta cadena es mas larga" 

30 PRINT a*; a* 

40 PRINT a*, a* 

50 PRINT 

60 PRINT b*Jb* 

70 PRINT b*,b* 

run 

Orden. Envia los <elementos que se escriben) al canal especificado (o al #0, si no se 
especifica ninguno. 

Cuando se utiliza un signo de punto y coma (;) para separar los elementos de la lista, 
el ordenador escribe cada elemento inmediatamente despues del anterior; no obstante, 
BASIC comprueba si el elemento siguiente cabe en la misma linea y, si no cabe, salta 
a la linea siguiente a pesar del signo de punto y coma. 

Analogamente, la coma (,) especifica que el siguiente elemento se debe escribir en la 
siguiente zona de escritura; no obstante, BASIC comprueba si con el elemento actual 
se ha rebasado la anchura de la zona de escritura y, si es asi, escribe el siguiente ele- 
mento en una zona mas a la derecha. 



PRINT SPC 
PRINT TAB 

PRINT [#<expresion de ntnero de canal), JKlista deKeleneato que se escribe)!! ; 1 
[SPC (<expresion entera)) lKlista de:<eleiento que se escribe)! 

PRINT [#<expresioa de nuiero de canal), JKlista de:<eleiento que se escribe)]! ; 1 
[TAB Uexpresion entera)) lKlista de:<eleiento que se escribe)] 

10 PRINT "Esta es la funcion SPC" 

20 FOR x=6 TO 15 

30 PRINT SPC(5) n a"5SPC(x) "b" 

40 NEXT 

50 PRINT "Esta es la -funcion TAB" 

60 FOR x=6 TO 15 

70 PRINT TAB(5) n a n ;TAB(x) "b n 

80 NEXT 

run 



3/60 Lista completa de las palabras clave 



SPC escribe el numero de espacios especificado por la <expresi6n entera) y luego, in- 
mediatamente a su derecha, el siguiente <elemento> (en el supuesto de que quepa en la 
misma linea). Por consiguiente, no es necesario poner el signo de punto y coma des- 
pues de SPC. 

TAB avanza hasta la position especificada por la <expresion entera), referida al borde 
izquierdo de la ventana, y luego, inmediatamente a la derecha de esa position, el si- 
guiente <elemento> (en el supuesto de que quepa en la misma linea). Por consiguiente, 
no es necesario poner el signo de punto y coma despu6s de TAB. Si la position actual 
es mayor que la especificada, primero se realiza un retorno de carro y avance de linea 
y despues el avance de los espacios necesarios. 



PRINT USING 

PRINT [#<expresion de nuiero de canal >][<lista de:<eleiento que se escribe>][ » 1 
[USING <plantilla de fonatoHKseparadorXexpresioiOl 

10 FOR x=i TO 10 

20 n= 100000* <RNDt5) 

30 PRINT "Precio" ; USING "########,.##"; n 

40 NEXT 

run 

PRINT USING permite especificar el formato de la expresion escrita con PRINT. 
Esto se consigue especificando una <plantilla de formato) a la que la escritura ha de 
amoldarse. El <separador> es una coma o un punto y coma. La <plantilla de formato) 
es una cadena literal construida con los siguientes 'especificadores de formato': 



Formatos numericos 

Para el numero en si: 

# Cada # especifica una posicidn (para un digito). 
Ejemplo: ###### 

Especifica la position del punto decimal. 
Ejemplo: ######.## 

(Especifica una position.) S61o puede aparecer antes del punto decimal. Especi- 
fica que los digitos que queden a la izquierda del punto decimal deben separarse 
mediante comas en grupos de tres. 
Ejemplo: #####,.## 
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Para antes y despues del numero: 

££ (Especifica dos posiciones.) Especifica que se debe escribir un signo £ inmedia- 
tamente antes del primer digito o del punto decimal, despues del signo + o - (si 
lo hay). Observese que el signo £ ocupara una de las posiciones para digitos. 
Ejemplo: ££######,.## 

** (Especifica dos posiciones.) Especifica que los espacios libres a la izquierda de- 
ben ser rellenados con asteriscos. 
Ejemplo: **######,.## 

**£ (Especifica tres posiciones.) Actua como las opciones ** y ££ combinadas, es 
decir, con asteriscos por la izquierda y el signo £. 
Ejemplo: ••£######,.## 

$$ (Especifica dos posiciones.) Especifica que se debe escribir un signo $ inmedia- 
tamente antes del primer digito o del punto decimal, despues del signo + o - (si 
lo hay). Observese que el signo $ ocupara una de las posiciones para digitos. 
Ejemplo: $$######,.## 

**$ (Especifica tres posiciones.) Actua como las opciones ♦♦ y $$ combinadas, es de- 
cir, con asteriscos por la izquierda y el signo $. 
Ejemplo: ••$######,.## 

+ Especifica que se debe escribir el signo + o el - (segiin corresponda). Si se in- 
cluye el signo + al principio de la plantilla, el signo se escribira inmediatamente 
antes del numero (y del signo £ o $, si se lo ha especificado). Si se incluye el 
signo + al final de la plantilla, el signo se escribe a la derecha del numero (y del 
exponente, si lo hay). 
Ejemplo: +####.#### 

Este signo solo se puede poner al final de la plantilla. Especifica que, si el nu- 
mero es negativo, se debe escribir el signo - a su derecha (y a la derecha del ex- 
ponente, si lo hay). Si el numero es positivo, a su derecha se escribe un espacio. 
Si no se especifica esto, se escribe automaticamente un signo - a la izquierda de 
todos los numeros negativos. 
Ejemplo: ####.####- 

TTTT Especifica que el numero se debe escribir en forma exponencial. Los signos TTTT 
se deben poner a la derecha de las posiciones para digitos, pero a la izquierda 
de los signos + y - (si los hay). 
Ejemplo: #.#### TTTT+ 

La plantilla de formato para numeros no puede contener mas de 20 caracteres. Los 
numeros son redondeados antes de escribirlos con los digitos especificados. 

Si el formato es demasiado pequeno para el numero que se ha de escribir, por ejemplo 

PRINT USING "####"; 12345678 
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el niimero no se trunca, sino que se lo escribe entero, precedido de un signo % para 
indicar el 'fallo de formato'. 



Formatos literales 

10 CLS:a*="abcde-fghijklmnopqrst" 

20 PRINT "expresion de entrada = " » a* 

30 PRINT: PRINT "con espec i-f icador ! = "; 

40 PRINT USING " ! " ; a* 

50 PRINTlPRINT "con espec i-f icador \espacios\ = "5 

60 PRINT USING "\ \ " 5 a* 

70 PRINTrPRINT "con espec i f icador k = " ; 

80 PRINT USING n &";a* 

90 GOTO 90 

run 

! Especifica que solamente se debe escribir el primer caracter de la cadena. 
Ejemplo: ! 

\<espacios>\ 

Especifica que solamente se deben escribir los x primeros caracteres de la cade- 
na, siendo x la longitud de la plantilla (incluidas las barras inclinadas hacia la 
izquierda). 
Ejemplo: \ \ 

& Especifica que se debe escribir la cadena completa sin modificarla. 
Ejemplo: &. 

Las plantillas de formato, tanto si son numericas como si son literales, pueden ser re- 
presentadas por variables literales; por ejemplo: 

10 a*= "££######, .##" 

20 b*= n ! " 

30 PRINT USING a*; 12345. 6789 

40 PRINT USING b*; "peni ques" 

run 

En la parte 2 del capitulo 'Cuando usted guste ...' daremos mas information acerca 
de los formatos de impresion. 

Palabras clave relacionadas: SPC, TAB, USING. 
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RAD 

RAD 

RAD 

Orden. Hace que BASIC entienda los argumentos de las funciones trigonometricas en 
radianes. Esta es la situaci6n implicita que se establece en el momento de encender la 
maquina, cuando se la reinicializa y cuando se ejecutan las ordenes NEW, CLEAR 
LOAD, RUN, etc. 

Palabras clave asociadas: ATN, COS, DEG, SIN, TAN. 



RANDOMIZE 

RANDOMIZE Kexpresioi MMrici)] 

RANDOMIZE 123.456 
PRINT RND 
0.258852139 

Orden. El generador de numeros aleatorios de BASIC produce una sucesion pseudoa- 
leatoria en la que cada numero depende del anterior. La sucesi6n es siempre la misma. 
RANDOMIZE hace que los numeros aleatorios se tomen de esa sucesi6n a partir de 
la position dada por la <expresion numerica) o, si se omite esta, por un valor que el 
usuario debe teclear. 

RANDOMIZE TIME produce una sucesion que es muy dificil de repetir. 
Palabras clave asociadas: RND. 



READ 

READ (list deKviriable) 

10 FOR n=l TO 8 

20 READ a*,c 

30 PRINT a*5" " 5 : SOUND l,c:NEXT 

40 DATA en, 478, todas,426, las, 379, escalas, 358 

50 DATA mu.sicales,319,hay,284,8,253,notas,239 

run 
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Orden. Lee datos de las listas precedidas de DATA y los asigna a variables, actuali- 
zando automaticamente el 'puntero' de forma que este sefiale el siguiente dato. Se pue- 
de utilizar la orden RESTORE para hacer que el puntero senale el primer dato de 
una determinada lista DATA. 

En la parte 2 del capitulo titulado 'Cuando usted guste ...' daremos mas amplia infor- 
mation a este respecto. 

Palabras clave asociadas: DATA, RESTORE. 

RELEASE 

RELEASE <caitales it sonido) 

10 SOUND 65,1000,100 

20 PRINT "Pulse R para liberar el 5onido" 

30 IF INKEY(5)=-1 THEN 30 

40 RELEASE 1 

RUN 

Orden. Libera los canales de sonido que han sido retenidos en una orden SOUND. 

El parametro <canales de sonido) tiene que dar un valor entero comprendido entre 1 
y 7. Su significado es el siguiente: 

1 libera el canal A 

2 libera el canal B 

3 libera los canales A y B 

4 libera el canal C 

5 libera los canales A y C 

6 libera los canales B y C 

7 libera los canales A, B y C 

En la parte 2 del capitulo 'Cuando usted guste ...' daremos mas amplia information 
acerca de los sonidos. 

Palabras clave asociadas: SOUND. 

REM 

REM <resto de la linea) 

10 REM Caza a muerte de los i nvasores del 

hiperespacio i ntergalact ico, par AMSOFT 
20 REM Copyright AMSOFT 1985 
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Orden. Precede a las observaciones o anotaciones al programa. Hace que BASIC ig- 
nore el resto de la linea, en el cual pueden figurar caracteres cualesquiera, incluso el 
signo de dos puntos (:), que normalmente se utiliza para separar instrucciones. 

En lugar de :REM se puede poner una comilla sencilla (') en todos los casos salvo en 
las lineas de DATA, en las que el signo ' se interpreta como integrante de una cadena 
literal. 

Palabras clave asociadas: ninguna. 

REMAIN 

REMAIN (<nuiero de teiporizador)) 

10 AFTER 500,1 GOSUB 40 

20 AFTER 100,2 GOSUB 50 

30 PRINT "Programa -f uncionando" : GOTO 30 

40 REM esta subrutina no sera invocada porque 

lo impide la linea 80 
50 PRINTlPRINT "El temporizador 1 va a ser " ; 
60 PRINT " inhibido por REMAIN." 
70 PRINT "Unidades de tiempo que quedaban:"; 
80 PRINT REMAINU) 
run 

Funcion. Da la cuenta restante en el temporizador especificado (margen de a 3) y 
lo desactiva. 

En la parte 2 del capitulo 'Cuando usted guste ...' damos mas information acerca de 
las interrupciones. 

Palabras clave asociadas: AFTER, Dl, El, EVERY. 



RENUM 

RENUM Knuevo nuiero de linea>H , Kantiguo iiuiero de liitea>H,<increieiito>]] 

10 CLS 

20 REM esta linea sera la 123 

30 REM esta linea sera la 124 

40 REM esta linea sera la 125 

RENUM 123,20,1 

LIST 
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Orden. Renumera las lineas del programa. 

El parametro <antiguo numero de linea) especifica el numero de linea actual en el cual 
debe comenzar la remuneration. Si se omite ese parametro, la remuneration se realiza 
desde el principio del programa. 

El parametro <nuevo numero de linea) especifica que numero se va a dar a la primera 
linea renumerada. Si se omite este parametro, el programa renumerado empieza en la 
linea 10. 

El parametro <incremento> especifica el salto que habra entre cada dos mimeros de li- 
nea sucesivos. Si se lo omite, el incremento es 10. 

RENUM modifica correctamente los mimeros de linea citados en las instrucciones 
GOTO, GOSUB y similares. Sin embargo, no se modifican las referencias a mimeros 
de linea que esten contenidas en expresiones literales, tales como las que intervienen 
en las 6rdenes KEY, ni tampoco las contenidas en lineas REM, ni las <expresiones de 
numero de linea) incluidas en CHAIN y CHAIN MERGE. 

Los mimeros de linea validos son los comprendidos entre 1 y 65535. 

Palabras clave asociadas: DELETE, LIST. 



RESTORE 

RESTORE Knuuro it lim» 

10 READ s*: PRINT a*! " "5 

20 RESTORE 50 

30 FOR t=l TO 500: NEXT: GOTO 10 

40 DATA restaure los datos para leerlos 

50 DATA cuantas veces quiera 

run 

Orden. Hace que el 'puntero' de datos 'apunte' hacia el principio de la linea de DATA 
especificada por el parametro opcional <numero de linea). Si se omite el parametro, el 
puntero seiiala la primera linea de DATA del programa. 

En la parte 2 del capitulo 'Cuando usted guste ...' damos mas information a este 
respecto. 

Palabras clave asociadas: DATA, READ. 
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RESUME 

RESUME Knmero it linea)) 

10 ON ERROR GOTO 60 

20 FOR x = 10 TO STEP -i:PRINT i/x:NEXT 

30 END 

40 PRINT "llegamos hasta aqui despues del error" 

50 END 

60 PRINT "error numero" ;ERR; "en la linea";ERL 

70 RESUME 40 

run 

Orden. Reanuda la ejecuci6n normal del programa una vez detectado un error y pro- 
cesado por una orden ON ERROR GOTO. Si se omite el <numero de linea), el pro- 
grama continua en la misma linea en la que se produjo el error. Suprima el <numero 
de linea) en el ejemplo anterior y ejecute nuevamente el programa: 

70 RESUME 
run 

Palabras clave asociadas: DERR, ERL, ERR, ERROR, ON ERROR GOTO, 
RESUME NEXT. 



RESUME NEXT 

RESUME NEXT 

10 ON ERROR GOTO 90 

20 PRINT "Pulse siempre [ENTER]" 

30 INPUT "l";a 

40 INPUT "2"; a 

50 inpot "3";a REM error de sintaxis 

60 INPUT "4"; a 

70 INPUT "5"; a 

30 END 

90 PRINT "error numero" ; ERR; "en la linea" ; ERL 

100 RESUME NEXT 

run 

Orden. Reanuda la ejecucion normal del programa una vez detectado un error y pro- 
cesado por una orden ON ERROR GOTO. 
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RESUME NEXT reanuda la ejecucion en la linea siguiente a aquella en la que se de- 
tecto el error. 

Palabras clave asociadas: DERR, ERL, ERR, ERROR, ON ERROR GOTO, 
RESUME. 



RETURN 

RETURN 

10 GOSUB 50: PRINT "despues del gosub":END 

50 FOR n=l TO 20 

60 PRINT "subrutina" 

70 NEXT: PRINT 

80 RETURN 

run 

Orden. Seflala el final de una subrutina. BASIC retorna de la subrutina a la instruc- 
tion inmediatamente posterior a aquella que invoco la subrutina. 



Palabras clave asociadas: GOSUB. 



RIGHT$ 

RIGHT$(<expresion literal) , <longitud deseada)) 

10 MODE l:a*="Ordenador CPC664" 
20 FOR n=l TO 16:L0CATE 41-n,n 
30 PRINT RIGHT* ( a*, n) 
40 NEXT 
run 

Funcion. Produce una cadena que consta del numero de caracteres dado por <longitud 
deseada) (margen de a 255) tornados de la derecha de la <expresion literal). Si la lon- 
gitud de la <expresion literal) es menor que la <longitud deseada), la cadena producida 
es la <expresi6n literal) completa. 

Palabras clave asociadas: LEFT$, MID$. 
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RND 

RNDI ((expresioi anerica>) ] 

10 RANDOMIZE 

20 FOR x=l TO -1 STEP -1 

30 PRINT "parametria aleatorio =";x 

40 FOR n=l TO 6 

50 PRINT RND(X) 

60 NEXT n,x 

run 

Funcion. Da el siguiente niimero aleatorio de la sucesion en el caso de que la <expre- 
sion numerica) tenga valor positivo o no haya sido especificada. 

Si la <expresion numerica) toma valor cero, RND vuelve a dar el anterior niimero alea- 
torio generado. 

Si la <expresion numerica) toma un valor negative se inicia una nueva sucesion alea- 
toria y RND da su primer niimero. 

Palabras clave asociadas: RANDOMIZE. 



ROUND 

ROUND (<npresion nwericaH , (deciules)] ) 

10 FOR n=4 TO -4 STEP-1 

20 PRINT ROUND (1234. 5678, n) , 

30 PRINT "con <decimales> ="',n 

40 NEXT 

run 

Funcion. Redondea la <expresi6n numerica) a un niimero de decimales o potencia de 
diez especificada por <decimales>. Si <decimales> es menor que cero, se redondea la <ex- 
presion numerica) para dar un niimero entero seguido de tantos ceros antes del punto 
decimal como indique el parametro <decimales>. 

Palabras clave asociadas: ABS, CINT, FIX, INT. 
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RUN 

RUN <expresio» literal) 

RUN "rointime. dem" 

Orden. Carga un programa de BASIC o un programa binario que este grabado en dis- 
co e inicia su ejecucion. Borra el programa anteriormente residente en la memoria. 

Los programas de BASIC protegidos no pueden ser ejecutados por este procedimiento. 

Palabras clave asociadas: LOAD. 



RUN 

RUN [(niiiero de linea>] 
RUN 200 

Orden. Inicia la ejecucion del programa de BASIC actual a partir de la linea especi- 
ficada por <numero de linea), o a partir de la primera linea del programa si se omite 
el parametro. 

Los programas protegidos no pueden ser ejecutados por este procedimiento. 
Palabras clave asociadas: CONT, END, STOP. 



SAVE 

SAVE <noabre de f icheroM , <tipo de f ichero>H , (paraietros binaries)] 

SAVE "+ ichero.xyz" 
graba el fichero en modo de BASIC no protegido normal. 

SAVE "+ ichero.xyz",P 
graba el fichero en modo de BASIC protegido. 
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SAVE "-f ichero.xyz",A 

graba el fichero en modo ASCII. 

SAVE "-f ichero. xyz n , B, 8000, 3000, 8001 

graba el fichero en modo binario. En este ejemplo, graba la zona de memoria del or- 
denador que empieza en la direction 8000 y tiene una extension de 3000 bytes; el 
punto de entrada opcional es 8001 . 

Orden. Graba en disco el programa actualmente residente en la memoria. Un fichero 
binario consiste en una zona de memoria copiada en el disco. Los parametros son en 
este caso: 

(direction initial), Oongitud del { icheroH , <punto de entrada)] 

La memoria dedicada a la pantalla se puede grabar en forma de fichero binario. Es 
lo que se denomina 'volcado de la pantalla'; la orden necesaria es: 

SAVE "pantall a", B,kC000, 8*4000 
El fichero se puede volver a cargar con la orden: 

LOAD "pantalla" 
Palabras clave asociadas: CHAIN, CHAIN MERGE, LOAD, MERGE, RUN. 

SGN 

SGN (<expresioii nuitrica)) 

10 FOR n=200 TO -200 STEP-20 

20 PRINT "SGN da"; 

30 PRINT SGN<n) ; "cuando el numero es";n 

40 NEXT 

run 

Funcion. Determina el signo de la (expresion numerica). Da el valor -1 si la <expre- 
sion numerica) es menor que cero; el valor si es igual a 0; y el valor 1 si es mayor 
que cero. 

Palabras clave asociadas: ABS. 
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SIN 

SINUexpresio* auierica)) 

10 cls:deg:origin 0,200 

20 FOR n=0 TO 720 

30 y=SIN<n) 

40 PLOT n*640/720,198*y:NEXT 

50 GOTO 50 

run 

Funcion. Calcula el seno de la <expresion numerica). 

Observese que se puede utilizar DEG y RAD para hacer que el ordenador entienda 
los arcos como dados en grados o en radianes, respectivamente. 

Palabras clave asociadas: ATN, COS, RAD, TAN. 



SOUND 

SOUND <5ituacion de canales), <periodo de tonoM , <duracioa)[ , <voluien> 
[ , <eBvolvente de voluienH , <envolvente de tono>[ , <periodo de ruido>]]]]] 

10 FOR 2=0 TO 4095 
20 SOUND l,z, 1, 12 
30 NEXT 
run 

Orden. Programa la generation de un sonido. Los parametros son los siguientes: 

Parametro 1: (situation de canales) 

El parametro <situaci6n de canales) debe tener un valor comprendido entre 1 y 255. 
El significado de cada uno de los bits es como sigue: 

Bit (decimal 1) enviar sonido al canal A (bit menos significativo) 

Bit 1 (decimal 2) enviar sonido al canal B 

Bit 2 (decimal 4) enviar sonido al canal C 

Bit 3 (decimal 8) sincronizacion con el canal A 

Bit 4 (decimal 16) sincronizacion con el canal B 

Bit 5 (decimal 32) sincronizacion con el canal C 

Bit 6 (decimal 64) retention del canal de sonido 

Bit 7 (decimal 128) borrado del canal de sonido (bit mas significativo) 
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Por ejemplo, el valor 68 del parametro (situation de canales) especifica: 
Enviar el sonido al canal C (4) y retenerlo (64). 

Parametro 2: (periodo de tono> 

Este parametro define el tono del sonido; es decir, identifica la nota (DO, RE, MI, 
FA, etc.). Cada nota tiene un numero de identification, que es el <periodo de tonoX 
Vease el capitulo titulado 'Para su referenda ...'. 

Parametro 3: (duration) 

Este parametro especifica la duration del sonido. Las unidades son de centesimas de 
segundo (0.01 s). Si no se especifica duraci6n, el ordenador toma el valor implicito 
para este parametro, que es 20 (un quinto de segundo). 

Si el valor de (duration) es cero, el sonido dura hasta el final de la envolvente de vo- 
lumen especificada. 

Si el valor de (duration) es negativo, la envolvente de volumen especificada se repite 
ABS(<duraci6n>) veces. 

Parametro 4: <volumen> 

Este parametro especifica el volumen inicial de la nota. El margen de valores va de 
a 15. El <volumen> es el minimo; el 15 es el maximo. Si no se especifica <volumen>, 
el ordenador toma el implicito, que es 12. 

Parametro 5: (envolvente de volumen) 

Se puede hacer que el volumen de la nota no sea constante, sino que varie con el tiem- 
po mientras la nota esta sonando. Para especificar la forma de variation del volumen 
con el tiempo se utiliza la orden ENV. De hecho, se pueden crear hasta 15 envolventes 
de volumen diferentes, con numeros de referencia del 1 al 15. El parametro (envol- 
vente de volumen) invoca una envolvente de volumen para su utilization por SOUND. 

Vease la description de la orden ENV. 

Parametro 6: (envolvente de tono) 

Se puede hacer que el tono de una nota no sea constante, sino que varie con el tiempo 
mientras la nota esta sonando. Para especificar la forma de variation del tono con el 
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tiempo se utiliza la orden ENT. De hecho, se pueden crear hasta 15 envolventes de 
tono, con niimeros de referenda del 1 al 15. El parametro <envolvente de tono> invoca 
una envolvente de tono para su utilization por SOUND. Si en la definition de ENT 
se ha puesto un numero negativo como numero de envolvente, en la instruction 
SOUND se debe poner el valor absoluto de ese numero como <envolvente de tono). 

Vease la description de la orden ENT. 

Parametro 7: <periodo de ruido> 

Se puede anadir ruido al sonido: las caracteristicas del ruido se controlan con el pa- 
rametro <periodo de ruido). El margen de valores va de (ruido apagado) hasta 31. 

En la parte 2 del capitulo 'Cuando usted guste ...' daremos mas amplia information 
sobre los sonidos. 

Palabras clave asociadas: ENT, ENV, ON SQ GOSUB, RELEASE, SQ. 

SPACE$ 

SPACE* ( {expresioii entera)) 

10 MODE 1 

20 PRINT "Pongamos 9 espacios entre uno"; 

30 PRINT SPACE* < 9) ; 

40 PRINT "y otro" 

run 

Funcion. Crea una cadena literal consistente en el numero de espacios especificado 
por <expresion entera) (margen de a 255). 

Palabras clave asociadas: SPC, STRING$, TAB. 

SPC 

Vease PRINT SPC. 

SPEED INK 

SPEED INK (periodo 1>, <peModo 2) 

10 BORDER 7,18 

20 FOR i=30 TO 1 STEP-i 

30 SPEED INK i, i 

40 FOR t=l TO 700: NEXT t,i 

run 
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Orden. Establece la velocidad de alternancia entre los dos colores de tinta especifica- 
dos mediante INK o BORDER. El primer parametro <periodo 1>, especifica el tiempo 
para el primer color, en unidades de 0.02 s (cincuentavos de segundo); <periodo 2) es- 
pecifica el tiempo para el segundo color. 

Teganse cuidado al elegir colores y velocidades para evitar efectos mesmericos 
('hipnotizantes'). 

Palabras clave asociadas: BORDER, INK. 

SPEED KEY 

SPEED KEY Ueiora de arranque} , <periodo it repetition) 

10 CLS:F0R k=7 TO 1 STEP-2 

20 PRINT "Escriba su nombre y pulse [ENTER]" 

30 SPEED KEY k,k 

40 LINE INPUT a*: NEXT 

50 PRINT "Es un nombre muy interesante" 

run 

Orden. Establece las caracteristicas de repetition de las teclas. El parametro <demora 
de arranque) especifica el tiempo, en unidades e 0.02 s (cincuentavos de segundo) que 
ha de estar pulsada la tecla antes de que empiece a repetirse su acci6n. El parametro 
<periodo de repetition) especifica el tiempo que debe transcurrir entre cada dos repe- 
ticiones sucesivas. 

SPEED KEY solamente actiia sobre las teclas que son de repetici6n implicitamente o 
que han sido definidas como tales mediante KEY DEF. 

Cuando se vaya a utilizar valores muy bajos del parametro <demora de arranque), es 
aconsejable definir previamente una de las teclas numericas para que devuelva el te- 
clado a la situaci6n implicita, SPEED KEY 30,2. La orden 

KEY 0, "SPEED KEY 30, 2" +CHR*( 13) 

restablece los valores implicitos de los parametros de SPEED KEY en cuanto se pulsa 
la tecla del del teclado numerico. 

Palabras clave asociadas: KEY DEF. 
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SPEED WRITE 

SPEED WRITE <expresion entera) 
SPEED WRITE 1 

Orden. Establece la velocidad de transferencia de datos al magnetofono (si esta co- 
nectado). Las velocidades son: 2000 baudios (bits por segundo), si <expresion entera) 
vale 1, y 1000 baudios si (expresion entera) vale 0. Esta ultima es la velocidad impli- 
cita. Para leer una cinta no es necesario saber a que velocidad ha sido grabada, pues 
el ordenador selecciona la velocidad correcta de lectura automaticamente. 

La maxima fiabilidad en la transferencia de datos se obtiene con la velocidad minima, 
que ademas es la implicita: SPEED WRITE 0. 

Esta orden no ejerce ningun efecto sobre el sistema de grabacion en disco. 

Palabras clave asociadas: OPENOUT, SAVE. 

SQ 

SQ( (canal) > 

10 SOUND 65,100,100 
20 PRINT SQ(1> 
run 
67 

Funcion. Genera un numero que informa del estado de la cola de sonido del (canal) 
especificado. El parametro puede tener uno de los siguientes valores: 

1 para el canal A 

2 para el canal B 
4 para el canal C 

La funci6n SQ produce un numero que se interpreta, segun sea el valor de sus bits, 
de la forma siguiente: 



Bits 0, 1 y 2 
Bits 3, 4 y 5 
Bit 6 
Bit 7 



numero de huecos libres en la cola 

estado de sincronizacion de la primera nota de la cola 

la primera nota esta retenida 

el canal esta activo en la actualidad 



donde el bit es el menos significativo y el bit 7 el mas significativo. 
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Como se puede apreciar, si el bit 6 esta a 1 , el bit 7 tiene que estar a cero, y viceversa. 
Analogamente, si alguno de los bits 3, 4 y 5 esta a 1, los bits 6 y 7 tienen que estar a 
cero. 

En la parte 2 del capitulo 'Cuando usted guste ...' damos mas information acerca de 
los sonidos. 

Palabras clave asociadas: ON SQ GOSUB, SOUND. 



SQR 

SQR ( <expresioit nuurica>) 

PRINT SQR<9) 

3 

Funcion. Da el valor de la raiz cuadrada de la <expresion numericaX 
Palabras clave asociadas: ninguna. 

STEP 

Vease FOR. 

STOP 

STOP 

10 FOR N=l TO 30: PRINT NrNEXT 

20 STOP 

30 FOR n=31 TO 60: PRINT n:NEXT 

run 

cont 

Orden. Detiene la ejecucion del programa, pero deja BASIC en un estado tal, que el 
programa puede ser reanudado mediante CONT. STOP se utiliza para establecer pun- 
tos de parada en la depuraci6n de programas. 



Palabras clave asociadas: CONT, END. 
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STR$ 

STR* ( (expresion nuierica>> 

10 a=&FF :REM 255 en hexadecimal 

20 b=fcXllll :REN 15 en binario 

30 c*="***" 

40 PRINT c*+STR*(a+b>+c* 

run 

*** 270*** 

Funcion. Convierte la <expresion numerica) en una cadena literal formada por los mis- 
mos digitos. 

Palabras clave asociadas: BIN$, DEC$, HEX$, VAL 



STRING$ 

STRING* (<longitud>, <especificador del caracter)) 

PRINT STRING*<40, "*") 
**************************************** 

Funcion. Da una cadena numerica que consiste en el caracter especificado repetido 
tantas veces como indique <longitud> (margen de a 255). N6tese que en el ejemplo 
anterior se podria haber puesto tambien: 

PRINT STRING*<40,42) 
**************************************** 

donde el <especificador del caracter), el numero 32, es el codigo ASCII del asterisco. 

Palabras clave asociadas: SPACE$. 



SWAP 

Vease WINDOW SWAP. 
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SYMBOL 

SYMBOL <imiero del cancter), <lista de:<fila) 

10 MODE l: SYMBOL AFTER 105 

20 f ilal=255:REM 11111111 en binario 

30 f ila2=129:REM 10000001 en binario 

40 f ila3=189:REM 10111101 en binario 

50 f ila4=153:REM 10011001 en binario 

60 f ila5=153:REM 10011001 en binario 

70 f ila6=189:REM 10111101 en binario 

80 f ila7=129:REM 10000001 en binario 

90 f ila8=255:REM 11111111 en binario 

100 PRINT "La linea 110 redefine la letra i (105). 

Teclee varias veces esa letra y luego 1 iste el 

programs. " 

110 SYMBOL 105,filal,-fila2,fila3,fila4,fila5, 

■f i 1 a6 , + i 1 a7 , + i 1 a8 
run 

Orden. Redefine la forma de un caracter. El margen para todos los parametros es de 
a 255. 

Con objeto de reservar espacio en la memoria del ordenador para la description del 
caracter, es necesario ejecutar previamente la orden: 

SYMBOL AFTER x 

donde x debe ser igual o menor que el numero del caracter que se va a redefinir. 

El caracter puede ser directamente accesible por el teclado; en cualquier caso se lo pue- 
de escribir mediante la orden 

PRINT CHR*(x) 

Despues de SYMBOL x viene una sucesion de hasta 8 parametros, cada uno de los 
cuales describe una fila de la matriz del caracter. El margen de estos parametros es de 
a 255. La representation binaria de cada parametro indica la situation de 'encendi- 
do' o 'apagado' de cada uno de los puntos de la fila correspondiente. 

Por ejemplo, si el primero de los ochos parametros vale 1, la fila superior del caracter 
tiene la representation binaria 00000001. Cada 1 indica que el correspondiente punto 
del caracter se ilumina con el color de PEN; cada indica que el correspondiente pun- 
to no sera visible, pues se lo escribe con el color de PAPER. Asi pues, la primera fila 
de este caracter consiste en un punto en el extremo superior derecho. Los siguientes 
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parametros son 3,7,15,31,63,0,0. La representation binaria de los ocho parame- 
tros es como sigue: 

parametro (fila) 1: 00000001 en binario (1 en decimal) 
parametro (fila) 2: 00000011 en binario (3 en decimal) 
parametro (fila) 3: 00000111 en binario (7 en decimal) 
parametro (fila) 4: 00001111 en binario (15 en decimal) 
parametro (fila) 5: 00011111 en binario (31 en decimal) 
parametro (fila) 6: 00111111 en binario (63 en decimal) 
parametro (fila) 7: 00000000 en binario (0 en decimal) 
parametro (fila) 8: 00000000 en binario (0 en decimal) 

Observando el conjunto de las representaciones binarias podemos hacernos una idea 
del aspecto que tendra el caracter. Asignemos estos parametros al caracter numero 
255 mediante la orden: 

SYMBOL 255,1,3,7,15,31,63,0,0 

Al ser los dos ultimos, podemos emitirlos: 

SYMBOL 255,1,3,7,15,31,63 

Los parametros se pueden introducir en forma binaria, con lo que se ahorra el trabajo 
de convertirlos previamente a la forma decimal. (Recuerdese que el prefijo para nu- 
meros binarios es &X.) Por ejemplo: 

SYMBOL 255 , &X00000001 , &X0000001 1 , &X000001 1 1 , 
B<X00001 111, &X0001 1111, 8^X001 11111 

Finalmente, para ver el resultado de la definition, ejecute la orden 

PRINT CHR*(255) 

Si se redefine uno de los caracteres accesibles por el teclado, el nuevo caracter apare- 
cera en la pantalla cada vez que se pulse la tecla correspondiente o se lo escriba con 
PRINT CHR$(). Por otra parte, BASIC reconoce la forma del nuevo caracter cuan- 
do trata de leerlo en la pantalla, y no lo rechaza por incomprensible. 

En la parte 2 del capitulo 'Cuando usted guste ...' daremos mas information sobre la 
redefinition de caracteres. 

Palabras clave asociadas: COPYCHR$, HIMEM, MEMORY, SYMBOL AFTER. 
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SYMBOL AFTER 

SYMBOL AFTER <expresion eatera) 

10 CLS 

20 SYMBOL AFTER 115 

30 PRINT "La linea 40 rede-fine la letra s"; 

40 SYMBOL 115,0,56,64,64,48,8,8,112 

50 PRINT "a 5" 

60 PRINT "Cancele esta de-finicion de s" 

70 PRINT "tecleando SYMBOL AFTER 240" 

run 

Orden. Establece el numero de caracteres redefinibles por el usuario (en el margen de 
a 256). El numero implicito es 240, lo que deja 16 caracteres (del 240 al 255) defi- 
nibles por el usuario. Si <expresion entera) es 32, todos los caracteres, del 32 al 255, 
son definibles. SYMBOL AFTER 256 impide la redefinicion de caracteres. 

Cada vez que se ejecuta una orden SYMBOL AFTER, quedan anuladas todas las re- 
definiciones y la forma de todos los caracteres vuelve a ser la implicita. 

La orden SYMBOL AFTER no se puede ejecutar despues de modificar el valor de 
HIMEM, lo cual puede ocurrir como resultado de una orden MEMORY, o bien por 
haber abierto un tampon para la grabacion o lectura de un fichero con OPENOUT 
u OPENIN. En tales circunstancias se provoca el mensaje 'Improper argument' (ar- 
gumento inadecuado, error numero 5), a menos que la situaci6n anterior fuera 
SYMBOL AFTER 256. 

En la parte 2 del capitulo 'Cuando usted guste ...' daremos mas informaci6n sobre la 
redefinicion de caracteres. 

Palabras clave asociadas: HIMEM, MEMORY, SYMBOL. 

TAB 

Vease PRINT TAB. 



TAG 

TAG [#<expre5ion de nuiero it canal)] 

10 INPUT "Escriba su nombre: ",a*:CLS 
20 PRINT "Es usted muy activo, " ; a* 
30 TAG 
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40 x=LEN(a*)*17:y=50+RND*300:MOVE -x,y 

50 FOR -f = -x TO 640 STEP RND*7+3 

60 MOVE -f,y: PRINT " " J a*; : FRAME: NEXT 

70 FOR b=640 TO -x STEP-RND*7+3 

80 MOVE b,y: PRINT a*5 " " 5 : FRAME: NEXT 

90 GOTO 40 

run 

Orden. Hace que el texto enviado al canal especificado sea escrito en la pantalla gra- 
fica, en la position actual del cursor. De esta forma se puede mezclar texto con gra- 
ficos, o mover los caracteres pixel a pixel. Si se omite la <expresion de numero de ca- 
nal), se supone el #0. 

El punto superior izquierdo del caracter se conecta al cursor grafico. Si se omite el 
signo de punto y coma al final de la instruction PRINT, los codigos de retorno del 
carro y de avance de linea se visualizan como caracteres graficos. 

Si se ha aplicado TAG al canal #0, BASIC desactiva TAG al volver a modo directo. 

Palabras clave asociadas: TAGOFF. 

TAGOFF 

TAGOFF [#<expresion de nuiero de caul)] 

10 MODE 2:TAG : REM texto ligado al cursor gra-fico 

20 periodo=1984:F0R x=l TO 640 STEP 70 

30 MOVE x,400:DRAWR 0,-350 

40 per iodo=periodo+l:PRINT per iodoj : NEXT 

50 TAGOFF :REM texto desconectado de cursor gra-fico 

60 LOCATE 34,25:PRINT "Datos anuales" 

70 GOTO 70 

run 

Orden. Cancela la orden TAG para el canal especificado (o para el #0, si no se es- 
pecifica otro) y redirige el texto a la position que tenia el cursor antes de ejecutarse 
TAG. 

Palabras clave asociadas: TAG. 



TAN 

TAN ( (expresion iwierica) ) 

PRINT TAN(45> 
1.61977519 
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Funcion. Calcula la tangente de la <expresion numerica), que debe tener un valor com- 
prendido eptre -20000 y +20000. 

Observese que se puede utilizar DEG y. RAD para hacer que el ordenador entienda 
los arcos como dados en grados o en radianes, respectivamente. 

Palabras clave asociadas: ATN, COS, DEG, RAD, SIN. 



TEST 

TEST ( (coordenada *> , (coordenada y) ) 

10 CLS 

20 PRINT "Estamos utilizando la pluma numero"; 

30 PRINT TEST (10, 386) 

40 PRINT "Cambie la pluma y el modo "; 

50 PRINT "... y ejecute otra vez el programa. " 

run 

Funcion. Traslada el cursor grafico al punto de coordenadas absolutas especificadas 
e informa del valor de la tinta presente en esa position. 

Palabras clave asociadas: MOVE, MOVER, TESTR, XPOS, YPOS. 



TESTR 

TESTR (<cu)rdenada x>, <coordenada y>) 

10 MODE 0:FOR x = l TO 15: LOCATE l,x 

20 PEN x:PRINT STRING*(10,143) ; : NEXT 

30 MOVE 200, 400: PEN 1 

40 FOR n=l TO 23: LOCATE 12, n 

50 PRINT "pen" ; TESTR (0, -16) : NEXT 

run 

Funcion. Lleva el cursor grafico a un punto cuya posici6n, referida a la position ac- 
tual, viene dada por los incrementos de x e y, e informa del valor de la tinta presente 
en ese punto. 

Palabras clave asociadas: MOVE, MOVER, TEST, XPOS, YPOS. 
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THEN 

Vease IF. 

TIME 

TIME 

10 CLSIREM relDJ 

20 INPUT "Hora: " , hora 

30 INPUT "Minuto: ", minuto 

40 INPUT "Segundo: ", segundo 

50 CLS:re+erencia=INT<TIME/300) 

60 WHILE hora<13 

70 WHILE minuto<60 

80 WHILE tiempo<60 

90 tiempo= ( INT (TIME/300) -re-f erencia) +segundo 

100 LOCATE 1, 1 

110 PRINT USING "tttt "; hora, minuto, tiempD 

120 WEND 

130 tiempo=0: 5egundo=0:minuto=minuto+l 

140 GOTO 50 

150 WEND 

160 minuto=0: hora=hora+l 

170 WEND 

180 hora=l 

190 GOTO 60 

Funcion. Da el tiempo transcurrido desde el momento en que se encendi6 o reinitia- 
lize la maquina por ultima vez (excluyendo el dedicado a escribir o leer en el disco), 
en unidades de 1/300 s. Expresado en segundos, el tiempo es, pues, TIME/300. 

Palabras clave asociadas: AFTER, EVERY, WEND, WHILE. 

TO 

Vease FOR. 

TROFF 
TRON 

TROFF 
TRON 

10 TROFF: PRINT: PRINT "TROFF" 
20 FOR n=l TO 8 



Lista completa de las palabras clave 3/85 



30 PRINT "Programa -f uncionando" : NEXT 
40 IF -f = l THEN END 

50 tron:print:print -tron" 

60 -f = l:GOTO 20 
run 

Orden. Sigue la 'traza' del programa escribiendo los niimeros de cada linea antes de 
ejecutarla. Los niimeros de linea aparecen entre corchetes [ ]. 

TRON activa este modo; TROFF lo desactiva. 

TRON es particularmente util para estudiar la secuencia de numeros de linea anterior 
al momento en que se produce un error. 

Palabras clave asociadas: ninguna. 



UNT 

UNT ((expresion de direccion de leioria)) 

PRINT UNT(kFF66) 
-154 

Orden. Da un entero, comprendido entre -32768 y +32767, que es el equivalente en 
'complemento a dos' al valor de la <expresion de direccion de memoriaX 

Palabras clave asociadas: CINT, FIX, INT, ROUND. 



UPPER$ 

UPPER* < (expresion literal)) 

10 CLS:a*="mire como crecen ! " 

20 PRINT UPPER* (a*) 

run 

Funcion. Da una cadena literal que es copia de la <expresion literal) especificada, pero 
convirtiendo las letras mayusculas en minusculas y dejando inalterados los restantes 
caracteres. Esta funcion es util en el proceso de datos que puedan contener minusculas 
mezcladas con mayusculas. 

Palabras clave asociadas: LOWER $. 
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USING 

Vease PRINT USING 

VAL 

VAL (<expresiDit literal) > 

10 CLSrPRINT "Ya he aprendido la tabla de multiplicar' 

20 PRINT:PRINT "Pulse una tecla del 1 al 9: " 

30 a*=INKEY*:IF a*="" THEN 30 

40 n=VAL(a*> : IF n<l OR n>9 THEN 30 

50 FOR x=l TO 10 

60 PRINT n; "x-jx; "= M ;n*x 

70 NEXT: GOTO 20 

run 

Funcion. Da el valor numerico (incluyendo el signo y el punto decimal) de los prime- 
ros caracteres de la <expresion literal > que sean digitos. 

Si el primer caracter no es un digito, el valor generado es 0. Si el primer caracter es 
el signo menos o el punto decimal y va seguido de caracteres no numericos, se pro- 
voca el mensaje 'Type mismatch' (incongruencia de tipos, error niimero 13). 

Palabras clave asociadas: STR$. 



VPOS 

VPOS ( tt<expre5ioi> de nuiero de canal >) 

10 MODE l: BORDER 0: LOCATE 8,2 

20 PRINT "Utilice las teclas subir/bajar cursor 1 

30 WINDOW 39,39, 1,25: CURSOR 1,1 

40 LOCATE 1,13 

50 IF INKEY(0)<>-1 THEN PRINT CHR*(11)J 

60 IF INKEY(2)<>-1 THEN PRINT CHR*(10); 

70 LOCATE #1,2,24 

80 PRINT ttl,"cursor de texto: "5 

90 PRINT ttl,"pos. vertical ="5 

100 PRINT #1, VPOS ( »0) : GOTO 50 

run 
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Funcion. Da la position vertical del cursor de texto, referida al extremo superior de 
la ventana. Es necesario especificar la <expresion de niimero de canal), pues el orde- 
nador no da por supuesto el #0. 

Palabras clave asociadas: POS, WINDOW. 

WAIT 

WAIT <ituero de puerta), <iascara)[, (inversion)] 

Orden. Espera hasta que por la puerta de entrada/ salida especificada por <numero de 
puerta) se reciba un determinado valor. BASIC lee incesantemente la puerta. Con el 
valor recibido y el parametro <inversi6n> se realiza la operaci6n 16gica XOR; con este 
resultado y el parametro <mascara> se realiza la operation logica AND; el proceso se 
repite hasta que el resultado final sea distinto de cero. 

BASIC espera indefinidamente hasta que se cumple la condition requerida. 

Esta orden no debe ser utilizada por quien no sepa cuales son sus efectos. 

Palabras clave asociadas: INPUT, OUT. 

WEND 

WEND 

WEND 

Orden. Sefiala el final del grupo de instrucciones cuya ejecucion se repite en un bucle 
del tipo WHILE. BASIC determina automaticamente a que WHILE corresponde cada 
WEND. 

Palabras clave asociadas: TIME, WHILE. 

WHILE 

WHILE <expresion logica) 

10 CLS:PRINT " Temper izador de 10 segundos" : t=TIME 

20 WHILE TIME<t+3000 

30 SOUND 1,0,100,15 

40 WEND: SOUND 129,40,30,15 

run 
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Orden. Repite la ejecucion de un grupo de instrucciones mientras se cumpla cierta con- 
dici6n. La orden WHILE senala el principio del bucle y especifica la condition logica 
mediante la <expresion logica). 

Palabras clave asociadas: TIME, WEND. 



WIDTH 

WIDTH <expresion enter*) 
WIDTH 40 

Orden. Informa a BASIC de cuantos caracteres por linea se deben enviar a la impre- 
sora. BASIC envia a la impresora los codigos de retorno del carro y avance de linea 
en el momento adecuado. 

El valor implicito es 132. 

La orden WIDTH 255 suprime los c6digos de retorno del carro y avance de linea, 
dejando que el numero de caracteres por linea sea totalmente controlado por la im- 
presora. En todo caso, la orden PRINT envia a la impresora esos dos codigos siempre 
que no se incluya el signo de punto y coma al final. 

Palabras clave asociadas: POS. 



WINDOW 

WINDOW [#<expresioD it auero it canal >, Kizqaierda) , «erecha> , <arriba>, <abajo) 

10 MODE 0: BORDER 0:REM carta de ajuste 

20 INK 0,0: INK 1,25: INK 2, 23: INK 3,21 

30 INK 4,17:INK 5,6:INK 6,2:INK 7,26 

40 PAPER 0!CLS 

50 PAPER l: WINDOW 2,4,1, 18: CLS 

60 PAPER 2: WINDOW 5,7, 1,18: CLS 

70 PAPER 3: WINDOW 8, 10, 1 , 18: CLS 

80 PAPER 4:WIND0W 1 1 , 13, 1 , 18: CLS 

90 PAPER 5:WIND0W 14, 16, 1 , 18: CLS 

100 PAPER 6:WIND0W 17, 19, 1 , 18: CLS 

110 PAPER 7:WIND0W 2, 19, 19, 25: CLS 

120 GOTO 120 

run 
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Orden. Especifica las dimensiones y situation de una ventana de texto. Los valores 
de los parametros <izquierda>, <derecha>, <arriba> y <abajo> indican los numeros extre- 
mos de columna y de fila, y deben ser consistentes con el modo de pantalla actual. 

Si no se especifica la <expresion de numero de canal), BASIC supone el #0. 

En la parte 2 del capitulo titulado 'Cuando usted guste ...' daremos mas informaci6n 
sobre ventanas de texto. 

Palabras clave asociadas: WINDOW SWAP. 
WINDOW SWAP 

WINDOW SWAP <expresion de nuiero de canal), <expresion de nuiero it canal) 

10 MODE 1:INK 1,24:INK 2,9:INK 3,6 

20 WINDOW 21, 40, 13, 25: PAPER 3 

30 WINDOW ttl, 1,20, 1, 12: PAPER #1,2 

40 CLS: PRINT " Ventana numero 0" 

50 CLS ttl: PRINT ttl," Ventana numero 1" 

60 LOCATE 1,6 

70 PRINT " Ventana roja (0) " ;SPC(2) 

80 LOCATE ttl, 1,6 

90 PRINT ttl," Ventana verde ( 1 ) " 

100 FOR t=l TO 1000: NEXT 

110 WINDOW SWAP 0,1: GOTO 60 

run 

Orden. Intercambia las caracteristicas de las dos ventanas de texto especificadas por 
las <expresiones de numero de canal). 

Se deben especificar los dos numeros de canal, pero en este caso no deben ir prece- 
didos del signo #. 

En la parte 2 del capitulo titulado 'Cuando usted guste ...' daremos mas information 
sobre ventanas de texto. 

Palabras clave asociadas: WINDOW. 
WRITE 

WRITE Ittfexpresion it nuiero it canal), IKlista de datos)] 

10 REM escribir variables en disco 
20 INPUT "Escriba un numero: " , a 
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30 INPUT "Escriba una palabra: " , a* 

40 OPENOUT "datos" 

50 WRITE #9, a, a* 

60 CLOSEOUT: PRINT »Dato5 grabados en disco" 

run 

Orden. Envia los valores de los elementos de la <lista de datos) al canal especificado 
por la <expresi6n de niimero de canaD. Los elementos iran separados por comas; las 
cadenas literales iran entre comillas. 

En el ejemplo anterior, los valores captados por el teclado son enviados al canal #9 
(disco). 

Para leer esos valores despues de grabarlos en disco, se necesita un programa tal como 
el siguiente: 

10 REM leer variables del disco 

20 OPENIN "datos" : INPUT #9, a, a* 

30 CLOSEINIPRINT "Los dos valores son:" 

40 PRINT: PRINT a, a* 

run 

Palabras clave asociadas: INPUT, LINE INPUT. 

XOR 

(arguiento) XOR <ar<)uiento) 

IF 'juan'Cpepe' XOR 'perroV'gato' THEN PRINT 'verdadero' ELSE PRINT 'falso* 

falso 

IF ■pepeVjiu* XOR 'gato^'perro' THEN PRINT 'verdadero' ELSE PRINT 'falso* 

falso 

IF 'juanV'pepe* XOR 'gato'>'perro' THEN PRINT 'verdadero* ELSE PRINT 'falso' 

verdadero 

PRINT 1 XOR 1 

8 
PRINT i XOR i 

9 
PRINT 1 XOR i 

1 

Operador. Realiza la operation logica 'o exclusivo' bit a bit entre enteros. El resultado 
es 1 a menos que ambos bits tengan el mismo valor. 
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Para mas amplia informaci6n sobre operaciones 16gicas, consulte la parte 2 del capi- 
tulo titulado 'Cuando usted guste ...'. 

Palabras clave asociadas: AND, OR, NOT. 



XPOS 

XPOS 

10 MODE l:DRAW 320,200 

20 PRINT "Posicion horizontal del cursor gra-fico = "; 

30 PRINT XPOS 

run 

Funcion. Da el valor de la posicion horizontal (coordenada x) del cursor grafico. 
Palabras clave asociadas: MOVE, MOVER, ORIGIN, YPOS. 

YPOS 

YPOS 

10 MODE l:DRAW 320,200 

20 PRINT "Posicion vertical del cursor gra-fico ="; 

30 PRINT YPOS 

run 

Funcion. Da el valor de la posici6n vertical (coordenada y) del cursor grafico. 
Palabras clave asociadas: MOVE, MOVER, ORIGIN, XPOS. 



ZONE 

ZONE (expresiot eitera) 

10 CLSSFOR z=2 TO 20 

20 ZONE z 

30 PRINT "X","X ZONE =";z:NEXT 

run 
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Orden. Cambia la anchura de la zona de escritura (especificada en las instrucciones 
PRINT cuando se utiliza una coma para separar elementos). La anchura implicita es 
13 columnas, pero se la puede cambiar al valor dado por la <expresi6n entera), cuyo 
margen es de 1 a 255. 

Palabras clave asociadas: PRINT. 
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Capitulo 4 
Discos y cintas 



Parte 1: Discos 

Discos de trabajo 

En esta section vamos a explicar como preparar discos para el trabajo diario y a pre- 
sentar algunas funciones de CP/ M y sus programas de ayuda. 

Temas tratados: 

* Copia del disco maestro del sistema y de ayudas 

* Preparation de discos de trabajo con el sistema y ayudas 

* Trabajo con discos para BASIC (sin CP/M) 

* Intalacion de aplicaciones 'Have en mano' en BASIC de 
AMSTRAD 

* Instalacion de aplicaciones 'Have en mano' en CP/M 

En la parte 7 del 'Curso de introduction' hemos explicado como inicializar un disco 
virgen para utilizarlo tanto con BASIC como con CP/ M. 

En la parte 10 del 'Curso de introduction' vimos como copiar discos con los progra- 
mas DISCCOPY y COPYDISC. 

En esta section vamos a abordar la preparation de discos con los programas deseados. 



Copia del disco maestro 



Es muy importante hacer una copia del disco maestro del sistema y ayudas que se su- 
ministra con el ordenador y guardar en lugar seguro el original, pues seria muy cos- 
toso sustituirlo si resultara danado. Recuerde que el disco maestro tiene dos caras: en 
una esta el sistema y los programas de ayuda; en la otra, Dr. LOGO. De hecho, todos 
los discos tienen dos caras, que pueden ser utilizadas independientemente para cual- 
quier proposito. 

Recuerde que los programas DISCCOPY y COPYDISC inicializan el disco destino 
al mismo tiempo que copian, de modo que se puede hacer una copia en un disco vir- 
gen sin necesidad de inicializarlo previamente. 
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Disco de trabajo SISTEMA/AYUDAS 

Ademas de hacer una copia del disco maestro que contiene el sistema, los programas 
de ayuda y Dr. LOGO, es conveniente preparar una copia de trabajo en la que se in- 
cluyan los programas del disco maestro que se utilizan mas a menudo. En ese disco 
quedara aiin abundante espacio para sus programas especificos y en todo caso, si ne- 
cesita algun programa de ayudas no incluido en el, siempre puede cargarlo con la co- 
pia del disco maestro. 

Primero hemos de inicializar un disco con el programa FORMAT de CP/M. Despues 
utilizaremos el programa FILECOPY para copiar los programas deseados. La expe- 
riencia le indicara cuales son los programas mas utiles para usted. Para este ejemplo 
hemos elegido los siguientes: 

AMSD0S.COM 

FILEC0PY.COM 

DISCC0PY.COM 

Utilice como disco de CP/M la copia del disco maestro. Cargue |cpm y, cuando apa- 
rezca el mensaje A>, escriba lo siguiente: 

FILECOPY FILEC0PY.COM 

y siga las instrucciones que el programa le ira dando. [El disco SOURCE (origen) es 
inicialmente instalado en la unidad; el disco DESTINATION (destino) es el disco que 
estamos creando.] Una vez terminado el proceso, copie los restantes programas con 
las ordenes 

FILECOPY AMSD0S.COM 
FILECOPY DISCC0PY.COM 

Cuando haya terminado de preparar un disco con el sistema y los programas de ayu- 
da elegidos, puede copiarlo completo en la otra cara (o en otros discos) con las ayudas 
DISCCOPY o COPYDISC. No obstante, tenga en cuenta las restricciones en cuanto 
a copias que se mencionan en el Acuerdo de Licencia para el Usuario Final, incluido 
el final de este manual. 



Disco para BASIC (sin CP/M) 

Las pistas y 1 de los discos de sistema estan reservadas por CP/M y no son accesi- 
bles al usuario. Si desea aprovechar toda la capacidad de un disco para programas o 
ficheros de datos de BASIC, y no piensa utilizar nunca CP/M ni ninguno de los pro- 
gramas de ayuda de CP/M con ese disco, entonces puede inicializarlo sin las pistas 
de CP/ M. Un disco de este tipo se denomina 'disco de datos'. 
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El disco se inicializa con la siguiente option de programa FORMAT. 

FORMAT D 

Para copiar programas en discos de este tipo se puede utilizar FILECOPY (leido de 
un disco de sistema), o bien, a traves de BASIC, cargarlos con LOAD y grabarlos con 
SAVE. En los sistemas de dos unidades de disco (esto es, cuando se tiene conectada 
la segunda unidad), se puede realizar la copia con el programa de ayuda PIP de CP/ M. 

Los programas COPYDISC y DISCCOPY inicializan el disco destino con el mismo 
formato que el disco origen. 



Discos Have en mano de BASIC de 
AMSTRAD 

Si usted compra una aplicacion escrita en BASIC de AMSTRAD para el CPC664, 
deberia estar lista para funcionar sin mas preparativos. Todo lo que tendra que hacer 
es instalarla en un disco de trabajo adecuado. 



BASIC Have en mano utilizando el disco 
suministrado 

Copie el disco maestro con COPYDISC y DISCCOPY, guarde el disco maestro y 
use la copia. Siga las instrucciones que acompanan al programa. Si necesita ademas 
otros programas del disco maestro de sistema/ ayudas, transfieralos con FILECOPY. 



Copia de BASIC Have en mano al disco de 
trabajo 

Los programas se pueden copiar al disco de trabajo. Escriba: 

FILECOPY *.* 

y siga las instrucciones que aparezcan en la pantalla. En particular, responda N a la 
pregunta: 

Ambiguous tile name: Confirm individual files (Y/N) ? 
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('Nombre de fichero ambiguo: Confirmar ficheros individuales (S/N)?'.) El programa 
FILECOPY informa de los nombres de los ficheros segun los va copiando. Una vez 
completado el proceso, puede ejecutar los nuevos programas leyendolos en su disco 
de trabajo. 



Programas Have en mano en CP/M 

El sistema operativo CP/ M permite disponer de una inmensa variedad de programas 
que han sido escritos para los ordenadores personales que pueden trabajar con CP/M. 
El funcionamiento basico de los programas ya esta decidido; todo lo que hay que ha- 
cer es instalarlos en un disco adecuado, y quiza informarles del metodo de gestion de 
la pantalla caracteristico del CPC664. 

Un conjunto de programas disenado para realizar una aplicacion especifica es lo que 
se denomina un 'paquete'. Los paquetes estan diseiiados normalmente para funcionar 
en diversos ordenadores, cada uno de los cuales tendra su propio metodo de gestion 
de la pantalla y de movimiento del cursor. En ocasiones el paquete que usted adquiere 
ya habra sido 'instalado' en el AMSTRAD; de lo contrario, ofrecera un menu para 
realizar la adaptation. En tal caso, siga las instrucciones especificas suministradas con 
los programas. Si el paquete no contiene la variante AMSTRAD, consulte la section 
titulada 'Configuraci6n de un programa en CP/ M', en la que se indica que codigos se 
deben enviar a la pantalla del CPC664 para producir los efectos requeridos por los 
paquetes. Generalmente, la instalacion (o adaptation) requerira que se tecleen los c6- 
digos adecuados cuando el programa lo pida. Siga, en todo caso, las instrucciones su- 
ministradas con los programas. 

El paquete que usted adquiera tiene que estar en un disco adecuado a este sistema. 
Casi todos los ordenadores tienen su propio formato de disco. Aunque el tamaiio sea 
el mismo, no por ello esta garantizada la compatibilidad. 



Creadon de un disco de trabajo para 
programas Have en mano de CP/M 

Es aconsejable copiar los programas del paquete en otro disco y guardar el original. 

Las instrucciones que damos a continuation son las necesarias para los sistemas de 
un solo disco. Aunque usted disponga de la segunda unidad, quiza sea preferible que 
se atenga a este metodo (es decir, que ignore la otra unidad). 

En primer lugar inicialice un nuevo disco de sistema; despues copie todos los progra- 
mas del disco maestro del paquete mediante la ayuda FILECOPY (cargado del disco 
de sistema/ ayudas). Escriba: 

FILECOPY *.* 
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y siga las instrucciones que aparezcan en la pantalla. En particular, responda N a la 
pregunta: 

Ambiguous -file name: Con-firm individual -files (Y/N) ? 

('Nombre de fichero ambiguo: Confirmar ficheros individuales (S/N)?\) El programa 
FILECOPY informa de los nombres de los ficheros segiin los va copiando. 

Una vez completado el proceso, dispondra de una copia de trabajo del paquete de pro- 
gramas. Si ademas necesita programas de ayuda, copielos del disco de sistema/ ayudas 
mediante FILECOPY. 

Configuration de un programa en CP/M 

El CPC664 maneja una amplia variedad de codigos de control, gracias a los cuales se 
le puede adaptar cualquier programa escrito para CP/M. La mayor parte de los pro- 
gramas de proceso de datos, asi como muchos otros paquetes de aplicaciones, nece- 
sitan poder escribir mensajes en determinados lugares de la pantalla, leer caracteres 
escritos en ella y entender los codigos de movimiento del cursor. 

Si su paquete de programas ya ha sido adaptado al ordenador AMSTRAD, no es ne- 
cesario que se preocupe por estas cuestiones. 

Configuration de la salida de un paquete 

El proceso de instalacion de un paquete requiere normalmente la ejecucion de un pro- 
grama especial (habitualmente llamado INSTAL) que hace al usuario una serie depre- 
guntas sobre las caracteristicas de fa pantalla del CPC664. Para introducir las respues- 
tas necesitara consultar la tabla siguiente, que ha sido tomada de la publication 'AMS- 
TRAD CPC664 BASIC Reference Manual' (SOFT 945): 



Valor 






hexadecimal 


Valor decimal 


Operation 


&07 


7 


Producir un pitido. 


&08 


8 


Cursor a la izquierda. 


&09 


9 


Cursor a la derecha. 


&0A 


10 


Cursor abajo. 


&0B 


11 


Cursor arriba. 


&0C 


12 


Cursor a su posici6n initial, borrando la 
pantalla. 


&0D 


13 


Cursor al borde izquierdo de la ventana, 
en la linea actual. 


&10 


16 


Borrar el caracter que esta en la position 
del cursor. 


&11 


17 


Borrar desde el borde izquierdo de la ven- 
tana hasta la position del cursor inclusive. 
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Valor 
hexadecimal 



Valor decimal 



Operation 



&12 


18 


&13 


19 


&14 


20 


&18 


24 


&1E 


30 


&lF<c><f> 


31<cXf> 



Borrar desde la posici6n del cursor inclu- 
sive hasta el borde derecho de la pantalla. 
Borrar desde el principio de la ventana 
hasta la posici6n del cursor inclusive. 
Borrar desde la posici6n del cursor inclu- 
sive hasta el final de la ventana. 
Bascular entre texto claro sobre fondo os- 
curo y viceversa. 
Cursor a su posici6n inicial. 
Llevar el cursor hasta la posici6n especi- 
ficada de la ventana actual, donde <c> es 
la columna, normalmente de 1 a 80, y <f> 
es la fila, normalmente de 1 a 25. 



Configuration de la entrada de un paquete 

Los programas del paquete generalmente necesitan captar datos a traves del teclado. 
Casi todas las teclas del CPC664 generan valores estandar, a excepci6n de las del mo- 
vimiento del cursor. Se puede utilizar el programa de ayuda SETUP (vease la parte 
2 del capitulo 'AMSDOS y CP/M*) para redefinir los codigos producidos por el te- 
clado; sin embargo, en general es preferible adaptar cada programa para que acepte 
los c6digos implicitos estandar. 



Nombre 


Valor 


Valor 


Numero de tecla 


Valor PT 


de la tecla 


hexadecimal 


decimal 


para 


SETUP 


(decimal) 


Cursor arriba 


&F0 


240 







5 


Cursor a la derecha 


&F3 


243 




1 


4 


Cursor abajo 


&F1 


241 




2 


24 


Cursor a la izquierda 


&F2 


242 




8 


19 


CLR 


&10 


16 




16 


7 


Return 


&0D 


13 




18 


13 


Espacio 


&20 


32 




47 


32 


Escape 


&FC 


252 




66 


27 


Tab 


&09 


9 




68 


9 


Del 


&7F 


127 




79 


127 


4/6 








Discos y cintas 



La columna encabezada con 'Valor PT' en la tabla siguiente indica valores tipicos que 
se podrian especificar por medio del programa SETUP para una aplicacion de pro- 
ceso de textos en el caso de que, por ejemplo, se quisiera que los codigos de movi- 
miento del cursor se generasen con teclas del teclado normal, ademas de las marcadas 
con las flechas, y el procesador de textos solamente reconociese un codigo para cada 
operaci6n. 

El proceso de instalaci6n consistira normalmente en que el programa hara ciertas pre- 
guntas acerca de los parametros del teclado del CPC664. Para dar las respuestas sera 
necesario consultar la tabla de la pagina anterior, que ha sido tomada de la publica- 
tion 'AMSTRAD CPC664 BASIC Reference Manual' (Soft 945). 

Ejecucion de un paquete Have en mano en 
CP/M 

Normalmente basta con escribir el nombre del programa a la derecha del mensaje A>. 
Por ejemplo, para ejecutar un programa de gestion de nominas llamado NOMI- 
NAS.COM se escribiria, sencillamente, 

NOMINAS 

Ejecucion automatica de un paquete Have en 
mano en CP/M 

Se puede hacer que el sistema operativo CP/M ponga en marcha un programa con- 
creto cada vez que se cargue |cpm con un disco determinado. Esto se consigue con 
una de las opciones del programa de ayuda SETUP (vease la parte 2 del capitulo 
'AMSDOS y CP/M'). 



Parte 2: Cintas 



Se puede conectar un magnetofono de cassettes al sistema (segun se explico en la par- 
te 2 del 'Curso de introduction'). Cuando se especifica el funcionamiento con magne- 
tofono mediante la orden |tape, algunas instrucciones de BASIC funcionan de forma 
diferente. Por ejemplo, en la pantalla se veran ciertos mensajes que no aparecen cuan- 
do se esta trabajando con discos. 
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A diferencia de lo que ocurre con el sistema de grabacion en disco, los nombres de 
los ficheros que se graban en cinta no tienen que sujetarse a normas estrictas. Pueden 
constar de hasta 16 caracteres y contener espacios y signos de puntuaci6n. En deter- 
minados casos, ni siquiera son necesarios. 

A continuation damos una lista de las diferencias entre las dos versiones (cinta y dis- 
co) de las instrucciones citadas. Las descripciones de las descripciones se encuentran 
en el capitulo 3 ('Lista completa de las palabras clave del BASIC del AMSTRAD 
CPC664 5 ). 



CAT 

El ordenador le pedira que: 

Press PLAY then any key: 

('Pulse PLAY y luego cualquier teda. 1 ) Usted debe presionar la tecla PLAY del mag- 
netofono y despues pulsar una de las teclas grises del ordenador. El motor del mag- 
netofono empezara a moverse y el ordenador escribira en la pantalla la lista de los 
ficheros que haya en la cinta a medida que los vaya encontrando. 

Para cada fichero se mostrara cada uno de los bloques integrantes, seguidos de un ca- 
racter que indica el tipo de fichero: 

$ fichero de BASIC no protegido 

% fichero de BASIC protegido 

» fichero ASCII 

& fichero binario 

El ordenador escribe 

Ok 

al final de la linea cuando ha terminado de leer sin incidentes el fichero; esto indica 
que habria podido cargar el fichero en memoria si lo hubiera intentado. 

La instruction CAT no afecta al programa residente en la memoria del ordenador. 

Si un fichero ha sido grabado sin nombre, CAT escribe 

Unnamed file 

('fichero sin nombre 5 ). 

El proceso se puede interrumpir en cualquier momento pulsando [ESC]. 
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Errores de lectura 

Si no aparecen en la pantalla los mensajes mencionados, o si aparece 

Read error a . . . d bien . . . Read error b 
puede estar ocurriendo lo siguiente: 

1. El magnetofono no esta conectado correctamente en el zocalo TAPE del ordena- 
dor (vease la parte 2 del 'Curso de introduction'). 

2. No esta correctamente ajustado el control de VOLUMEN del magnetofono. 

3. La cinta esta gastada o es de baja calidad. 

4. La cinta ha estado sometida a un campo magnetico (se la ha dejado cerca de un 
altavoz, televisor, etc.). 

5. Esta tratando de leer una cinta incompatible con los ordenadores AMSTRAD. 
Se pueden leer todos los programas escritos para el AMSTRAD CPC664 y casi 
todos los del CPC464. 

CHAIN 

CHAIN MERGE 
LOAD 
MERGE 
RUN 

No es necesario especificar el nombre del programa si se pretende leer el primero que 
el ordenador encuentre en la cinta. Ejemplos: 

CHAIN "" 
CHAIN " ".100 
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CHAIN MERGE 

CHAIN MERGE "", 100 

CHAIN MERGE "", 100, DELETE 30-70 

LOAD "" 

LOAD " " ,fclF40 

MERGE " " 

RUN " " 



(Notese que esta ultima orden se ejecuta pulsando la tecla [ENTER] pequefia del te- 
clado num6rico en combination con [CTRL]; previamente se debe haber ejecutado 
|tape.) 
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El ordenador le pedira que: 

Press PLAY then any key: 

('Pulse PLAY y luego cualquier tecla. 7 ) Usted debe presionar el boton PLAY del mag- 
netofono y despues pulsar una de las teclas grises del ordenador. El motor del mag- 
netofono empezara a moverse y el ordenador cargara el fichero. 

En la pantalla se mostraran los mensajes de carga: 

Loading NGMBREFI block 1 
y asi sucesivamente para los restantes bloques hasta que el fichero este cargado. 

Si el primer caracter del nombre del fichero es ! se suprimen todos los mensajes cita- 
dos, y usted debe asegurarse de que ha pulsado el botbn PLAY. En el caso de los fi- 
cheros grabados en disco, el ordenador ignora el distintivo !. Observe que el signo ! 
no cuenta a efectos de la longitud del nombre del fichero. 

Si se abandona el proceso pulsando la tecla [ESC], se provoca el mensaje 
Broken in . 

Si no consigue cargar el fichero, lea el apartado 'Errores de lectura' anterior. 



iATENCION! El interfaz del disco ocupa una pequena porci6n de la memoria 
del ordenador, la cual ha sido aprovechada en algunos programas comerciales es- 
critos para el modelo CPC464. Tales programas no funcionaran correctamente 
en el CPC664. 



EOF 

POS(#9) 

Estas funciones operan igual con cinta que con disco. 

INPUT #9 
LINE INPUT #9 
OPENIN 
CLOSEIN 

No es necesario especificar el nombre del fichero si se desea leer el primer fichero que 
el ordenador encuentre en la cinta. Ejemplo: 

OPENIN "" 
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El ordenador le pide que: 

Press PLAY then any key: 

('Pulse PLAY y luego cualquier tecla.') Usted debe presionar el boton PLAY del mag- 
netofono y despues pulsar una de las teclas grises del ordenador. La cinta empezara 
a mo verse y el ordenador cargara los primeros 2K del fichero en una zona de memo- 
ria denominada 'tampon'. El programa toma los datos del tampon. Cuando se vacia, 
el ordenador vuelve a emitir el mensaje: 

Press PLAY then any key: 
y carga los 2K siguientes. 
En la pantalla van apareciendo los mensajes de carga: 

Loading NOMBREFI block 1 
para los sucesivos bloques. 

Si el primer caracter del nombre del fichero es ! se suprimen todos los mensajes cita- 
dos; usted debe asegurarse de que ha pulsado el boton PLAY. En el caso de los fiche- 
ros grabados en disco, el ordenador ignora el distintivo !. Observe que el signo ! no 
cuenta a efectos de la longitud del nombre del fichero. 

Si se abandona el proceso pulsando la tecla [ESC], se provoca el mensaje 

Broken in 
Si no consigue cargar el fichero, lea el apartado 'Errores de lectura' anterior. 



LIST #9 
OPENOUT 
CLOSEOUT 
PRINT #9 
WRITE #9 

No es necesario especificar el nombre del fichero si se desea grabarlo como Unnamed 
file (fichero sin nombre). Ejemplo: 

OPENOUT " " 
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El ordenador va enviando datos a una portion de la memoria denominada 'tam- 
pon', cuya capacidad es de 2 K. Cuando se llena el tampon, el ordenador pide que 

Press REC and PLAY then any key: 

('Pulse REC y PLAY y luego cualquier tecla.') Usted debe presionar los botones REC 
y PLAY del magnetofono y despues pulsar una de las teclas grises del ordenador. La 
cinta empezara a moverse y el ordenador grabara en ella el contenido del tampon. El 
ordenador sigue enviando datos al tampon; cada vez que se llena vuelve a emitir el 
mensaje 

Press REC and PLAY then any key: 

y a grabar los 2K en la cinta. 

Si el tampon esta parcialmente ocupado cuando se ejecuta la orden CLOSEOUT, el 
ordenador vuelve a emitir el mensaje. 

Press REC and PLAY then any key: 
tras lo cual vacia el tampon hacia la cinta. 
Durante el proceso de grabacion apareceran en la pantalla los mensajes del tipo 

Saving NOMBREFI block <x> 

Si el primer caracter del nombre del fichero es ! se suprimen todos los mensajes cita- 
dos; usted debe asegurarse de que ha pulsado los botones REC y PLAY del magne- 
tofono. En el caso de los ficheros grabados en disco, el ordenador ignora el distintivo 
!. Observe que el signo ! no cuenta a efectos de la longitud del nombre del fichero. 

Si se abandona el proceso pulsando [ESC], se provoca el mensaje 

Broken in 



Calidad de la grabacion 

Para asegurar la fiabilidad de la grabacion: 

1. Compruebe que el magnetofono esta correctamente conectado al zocalo TAPE 
del ordenador (vease la parte 2 del 'Curso de introduction'). 

2. Ajuste adecuadamente el control del nivel de entrada del magnetofono (si lo tiene). 
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3. No utilice cintas de baja calidad, ni de duration C120. (Recomendamos las cintas 
AMSTRAD C15.) 

4. Asegurese de no dejar las cintas sometidas a la influencia de campos magneticos 
(cerca de altavoces, televisores, etc.) 

5. Antes de borrar el programa de la memoria, compruebe que ha quedado correc- 
tamente grabado rebobinando la cinta y catalogando su contenido. 

6. De a su magnetofono un mantenimiento periodico adecuado; en particular, limpie 
las cabezas con regularidad. 



SAVE 

No es necesario especificar el nombre del fichero si se desea grabarlo como Unnamed 
file (fichero sin nombre). Ejemplo: 

SAVE "" 

El ordenador pide que 

Press REC and PLAY then any key: 

('Pulse REC y PLAY y luego cualquier tecla.") Usted debe presionar los botones REC 
y PLAY del magnetofono y despues pulsar una de las teclas grises del ordenador. La 
cinta empezara a moverse y el ordenador grabara en ella el programa. 

Durante el proceso de grabacion apareceran en la pantalla los mensajes del tipo 

Saving NOMBREFI black 1 

Si el primer caracter del nombre del fichero es ! se suprimen todos los mensajes cita- 
dos; usted debe asegurarse de que ha pulsado los botones REC y PLAY del magne- 
tofono. En el caso de los ficheros grabados en disco, el ordenador ignora el distintivo 
!. Observe que el signo ! no cuenta a efectos de la longitud del nombre del fichero. 

Si se abandona el proceso pulsando [ESC], se provoca el mensaje 

Broken in 
Lea el apartado 'Calidad de la grabacion' anterior. 

SPEED WRITE 

Esta orden solo afecta a la cinta; puede ser ejecutada cuando el ordenador esta tra- 
bajando con el disco. 
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Mensajes de error 

El sistema de cinta puede generar los mensajes 7, 21, 24, 25, 27 y 32 (vease el capitulo 
titulado 'Para su referenda ...'). 



Ordenes externas de AMSDOS 

ITAPE 

especifica que las entradas y salidas se deben dirigir a la cinta. Esta orden se puede 
subdividir en 

ITAPE. IN 
para las entradas y 

ITAPE. OUT 
para las salidas. 

IDISC 

especifica que las entradas y salidas se deben dirigir al disco. Esta orden se puede sub- 
dividir en 

IDISC. IN 
para las entradas y 

IDISC. OUT 

para las salidas. 

Las ordenes 

IA 
IB 

ICPM 
IDIR 
I DRIVE 
I ERA 
I REN 
I USER 

se ejecutan siempre con el disco, aun cuando se haya seleccionado la cinta con las or- 
denes jtape. 
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Capitulo 5 
AMSDOS y CP/M 



Parte 1: AMSDOS 

Temas tratados: 

* Introduction a AMSDOS 

* Directorio del disco 

* Cambio de discos 

* Formato de los nombres de fichero 

* Cabeceras de fichero en AMSDOS 

* Simbolos comodin 

* Ejemplo de programa con ordenes de AMSDOS 

* Guia de referencia de las ordenes de AMSDOS 

* Manejo de ficheros 

* Guia de referencia de los mensajes de error 



Introduction 

AMSDOS amplia el BASIC suministrado con su ordenador al aiiadirle algunas orde- 
nes externas, identificadas por el signo | que las precede. 

AMSDOS permite cambiar libremente los discos siempre que no haya ningun fichero 
abierto. Si lo hay, emite un mensaje de error y puede producirse una perdida de datos 
si el fichero estaba abierto para escritura (en direction de salida). 



Directorio del disco 

Todos los discos tienen dos secciones: el directorio y el area de datos. El directorio 
contiene la lista de los nombres de los ficheros y un 'mapa' de la organization del area 
de datos. AMSDOS y CP/M pueden calcular la extension de un fichero consultando 
su resena en el directorio. El calculo del espacio libre se realiza sumando las longitu- 
des de todos los ficheros y restandolo de la capacidad total del disco. 

Cada vez que se va a leer de un fichero, se consulta su resena en el directorio para 
aVeriguar su situation en el disco. Cuando se crea un fichero nuevo, se le reserva es- 
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pacio en el disco. Cuando se borra un fichero, se libera el espacio por 61 ocupado. El 
directorio trabaja en unidades de IK y puede contener hasta 64 reseiias. Los ficheros 
largos necesitan una resefia para cada 16K, si bien este hecho queda oculto y carece 
de importancia para el usuario. 



Cambio de disco 

AMSDOS permite el cambio o la extraction del disco en todo momento en que no 
este accediendo a el, suponiendo que no haya ningun fichero abierto en esa unidad. 
A diferencia de CP/M, no necesita 'reconocer' los discos. 

Si se extrae un disco cuando se esta escribiendo en el, puede perderse parte del con- 
tenido del disco. En cuanto AMSDOS detecta que se ha extraido un disco habiendo 
ficheros abiertos en el, se abandonan todos los ficheros y se emite un mensaje de error. 
Los datos pendientes de escribir en el tampon de salida se perderan, y no se grabara 
la ultima resefia del directorio. No obstante, AMSDOS solamente detecta la extrac- 
cion del disco cuando consulta el directorio, lo que ocurre, con ficheros grandes, una 
vez cada 16K (y siempre que abre o cierra un fichero). Asi, es posible perder 16K de 
datos si se extrae un disco antes de cerrar todos los ficheros abiertos en 61. 



Nombres y tipos de ficheros en AMSDOS 

Es costumbre dar a los ficheros nombres que incluyan un distintivo del tipo de fichero 
de que se trata. Este convenio no obliga al ordenador a utilizar los ficheros de una 
forma determinada, si bien hay programas que solamente aceptan ficheros de un tipo 
determinado. BASIC acepta ficheros de todo tipo, pero busca preferentemente ciertos 
tipos si no se le especifica otra cosa. (Vease la section 'Cabeceras de fichero en 
AMSDOS'.) 



Construction de los nombres de los ficheros 

El nombre del fichero consta de dos partes, separadas por un punto (.). La primera 
parte consta de 8 caracteres como maximo; la segunda puede contener hasta 3 carac- 
teres. Asi, por ejemplo, "ROINTIME.DEM", "FORMAT.COM" y "EX1.BAS" 
son nombres correctos de fichero. 

La segunda parte del nombre del fichero es el distintivo de tipo. Los nombres y los 
distintivos pueden consistir en una mezcla cualquiera de letras y numeros, pero no pue- 
den contener espacios entre dos caracteres. Algunos distintivos de tipo convencionales 
son los siguientes: 
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<espacios> 



BAS 



.BIN 



BAK 



.COM 



Tipo no especificado. Puede ser un fichero creado por OPEN- 
OUT "<nombrefi>", o bien un programa de BASIC grabado 
por AMSDOS con SAVE "<nombrefi>",P. 

Programa de BASIC grabado con SAVE "<nombrefi>", con 
SAVE "<nombrefi>",P o con SAVE "<nombrefi>.BAS".A. 

Programa o zona de memoria grabados por AMSDOS con 
SAVE "<nombrefi>",B,<parametros binarios). 

Este distintivo se asigna automaticamente a la version anterior de 
un fichero cuando AMSDOS o un programa de ayuda graban 
una version mas moderna con el mismo nombre. Esto permite 
que el usuario pueda utilizar o consultar la version anterior siem- 
pre que lo necesite. 

Fichero de orden. Los programas de ayuda de CP/ M son de este 
tipo. 



Cabeceras de fichero en AMSDOS 

AMSDOS asigna automaticamente a los ficheros distintivos de tipo adecuados cuan- 
do los graba, por lo que normalmente no es necesario especificar distintivo. Los fi- 
cheros de BASIC ordinarios, los ficheros de BASIC protegidos y los ficheros binarios 
se graban con un registro de cabecera, de forma que en el proceso de lectura la orden 
de AMSDOS 

LOAD "<»oibrefi>" 

pueda reconocerlos y obrar en consecuencia. Si la orden LOAD no encuentra el re- 
gistro de cabecera, supone que se trata de un fichero ASCII, es decir, de un fichero 
de texto. 

Independientemente del registro de cabecera, cuando se pide a AMSDOS que cargue 
un fichero sin especificarle el distintivo de tipo, empieza por buscarlo con el distintivo 

. (espacios) 
Si no lo encuentra, busca uno del tipo 

.BAS 
y, finalmente, del tipo 

.BIN 



AMSDOS y CP/M 



5/3 



Esto permite que el usuario se despreocupe del distintivo de tipo en la mayor parte 
de los casos. 

Un fichero de disco creado por OPENOUT y escrito por BASIC carecera de registro 
de cabecera; su contenido estara en ASCII. La orden OPEN IN busca los flcheros en 
el mismo orden que LOAD si no se especifica distintivo de tipo. 

Nombres de fichero con dos unidades de disco 

En los sistemas de dos unidades de disco (esto es, en aquellos a los que se ha conec- 
tado la unidad FD-1), puede haber ficheros en las dos unidades. El ordenador no bus- 
ca los ficheros automaticamente en las dos unidades, por lo que el usuario debe espe- 
cificar que unidad se va a utilizar. Se puede utilizar las 6rdenes |A, |B o DRIVE (des- 
critas mas adelante) para seleccionar una de las dos unidades; o bien, sin necesidad 
de modificar la unidad implicita, se puede especificar A: o B: como prefijo del nom- 
bre del fichero. Asi, por ejemplo, 

IB 

SAVE "PROG.BAS" 

!A 



! A 

SAVE "B: PROG.BAS " 

graban el programa en la unidad adicional (B). 

Analogamente, se puede modificar transitoriamente la asignacion implicita de USER 
(usuario, margen de a 15) poniendo el numero de usuario como prefijo del nombre 
del fichero. Asi, por ejemplo, 

LOAD "15: PROG.BAS" 

y 

SAVE "15: PROG.BAS" 

cargan y leen el programa de la section del disco correspondiente al usuario numero 
15, cualquiera que sea la asignacion implicita de USER. (Vease mas abajo la descrip- 
tion de la orden |USER.) 

Finalmente, se pueden modificar transitoriamente las asignaciones implicitas de USER 
y DRIVE a un tiempo especificando ambos como prefijo del nombre del fichero. Por 
ejemplo, 

RUN "15B: PROG.BAS" 
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Simbolos comodin 

A veces se necesita realizar con el disco operaciones (catalogo, copia, borrado, etc.) 
que afecten a varios ficheros. Cuando se especifica un nombre de fichero para una de- 
terminada operation, el sistema busca en el directorio un nombre que coincida exac- 
tamente con el especificado. Algunas ordenes pueden actuar sobre un conjunto de fi- 
cheros independientemente de alguno de los caracteres de su nombre. En lugar de es- 
pecificar los caracteres 'indiferentes', en su lugar se pone el signo de interrogation ?. 
Si todo el bloque (o resto del bloque) del nombre del fichero o del distintivo de tipo 
es indiferente, el conjunto de signos de interrogation se puede sustituir por un aste- 
risco. Asi, por ejemplo, NOM.* es abreviatura de NOM.???, y F*.BAS es abrevia- 
turadeF???????.BAS. 

La expresion *.* significa 'todos los ficheros'. 

Ejemplos: 



DIRECTORIO 



Concuerda con 
*.BAS 



Concuerda con 
NOM7.BAS 



Concuerda con 
INKBA? 



BANCO.BAS 

NOM1.BAS 

NOM2.BAS 

NOM3.BAK 

NOM3.BAS 

NOMINA.BAS 



BANCO.BAS 

NOM1.BAS 

NOM2.BAS 

NOM3.BAS 
NOMINA.BAS 



NOM1.BAS 
NOM2.BAS 

NOM3.BAS 



NOM1.BAS 
NOM2.BAS 
NOM3.BAK 
NOM3.BAS 
NOMINA.BAS 



Ejemplos de utilization de ordenes de 
AMSDOS dentro de un programa 

Para mejor asimilar las ordenes de AMSDOS, le recomendamos que introduzca en el 
ordenador y estudie los programas siguientes. No ejecute nunca estos programas con 
el disco maestro de CP/M instalado: los programas escriben datos en disco, y nunca 
se debe correr el riesgo de escribir sobre el disco maestro. Utilice una copia o un disco 
de trabajo. 

Grabacion de variables y volcado de la 
pantalla 

Fijese en los distintivos de tipo .DAT y .SRN. No tienen mas significado intrinse- 
co que recordarnos cual es su contenido. El fichero PARAM.DAT sera un fichero 
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ASCII sin registro de cabecera, mientras que FLAGDUMP.SRN es un fichero bina- 
rio AMSDOS con cabecera. Los programas estan incluidos en su disco maestro de 
sistema/ ayudas en forma ASCII, dentro del programa EX1 .BAS. 

Este programa (EX1 .BAS) dibuja la bandera britanica y graba la pantalla completa 
en disco. 

Observe que el programa trata de leer el fichero PARAM.DAT, para averiguar si exis- 
te, antes de escribir en el. Si no existe, BASIC genera un error, el cual es gestionado 
por el programa para que la ejecucion continue sin interruption. Si ya existe el fiche- 
ro, no se genera error y el programa pregunta al usuario si desea escribir encima de el. 

Para ejecutar el programa escriba 

RUN "EX1" 

Como hemos dicho, AMSDOS busca automaticamente afiadiendo el distintivo .BAS. 
Los detalles del volcado de pantalla (modo y colores de tinta) y el nombre del fichero 
que contiene el volcado en si se graban en un fichero de parametros. De este modo se 
ilustra la grabacion de variables (dumpfile$) y de constantes (1 ) con la orden WRITE. 

10 dump-f i le*="-f lagdump. srn" 

20 MODE l: BORDER 

30 DIM colour <2) 

40 FOR i=0 TO 2 

50 READ colour <i): REM lee colores de lista DATA 

60 INK i,colour<i) 

70 NEXT 

80 ON ERROR GOTO 430 

90 OPENIN "param.dat" ' comprueba si existe -fichero 

100 CLOSEINION ERROR GOTO 

110 IF errnum=32 AND DERR=146 THEN CLS 

120 CURSOR l:PRINT "Quiere escribir sobre el -fichero": 

PRINT "anterior? Y/N"; 
130 a*=INKEY*:ON INSTRC YN" , UPPER* ( a*) ) GOTO 130,150, 

140: GOTO 130 
140 PRINT a*: PRINT "Fin del programa" : END 
150 PRINT a*: CURSOR 
160 OPENOUT "param.dat" 
170 WRITE **9, dump-f i le*, 1: REM graba nombre de fichero 

y modo 
180 FOR i=0 TO 2 

190 WRITE «9, colour (i) : REM graba colores 
200 NEXT i 
210 CLOSEOUT 

(Continua en la pagina siguiente.) 
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220 CLS 

230 gp=l: GRAPHICS PEN gp:w=125 

240 x=-65:a=240:y=400:b=-150:GOSUB 400 

250 y=0:b=150:GOSUB 400 

260 x=575:a=-240:y=400:b=-150:GOSUB 400 

270 y=0:b=150:GOSUB 400 

280 gp=2: GRAPHICS PEN gplw=40 

290 a=240:x=-40:y=400:b=-150:GOSUB 400 

300 x=0:y=0:b=150:GOSUB 400 

310 a=-240:x=640:y=0:b=150:GOSUB 400 

320 x=600:y=400:b=-150:GOSUB 400 

330 ORIGIN 0,0, 256, 380,0, 400: CLG 1 

340 ORIGIN 0,0,0,640, 150, 250:CLG 1 

350 ORIGIN 0,0,280,352,0,400:CLG 2 

360 ORIGIN 0,0,0,640, 168, 230:CLG 2 

370 SAVE dump-f ile*,b,&C000, 8(4000 

380 DATA 2,26,6 

390 END 

400 MOVE x,y:DRAWR a,b:DRAWR w,0:DRAWR -a,-b 

410 MOVE x+a/2+w/2,y+b/2:FILL gp 

420 RETURN 

430 errnum=ERR: RESUME NEXT 

run 

El segundo ejemplo (EX2.BAS), tambien incluido en el disco maestro, es un lector 
de volcados de pantalla que utiliza un fichero de parametros para controlar su action. 
Observe como se leen los datos del fichero con INPUT y como se utiliza EOF para 
adaptar la lectura automaticamente al tamafio del fichero. Para que este programa vi- 
sualice correctamente el volcado de pantalla, es necesario que la grabacion se haya he- 
cho en una position de memoria conocida, pues en caso contrario la imagen quedara 
desplazada. Esto se garantiza grabando el volcado despues de ejecutar una orden 
MODE y teniendo cuidado de no hacer que la pantalla se desplace. 

10 DIM colour (15): REM pr-epar-ac ion par-a 16 colores 

20 OPENIN "param.dat" 

30 INPUT #9, -f i lename*, scr-eenmode 

40 i=0 

50 WHILE NOT EOF 

60 INPUT #9,colour-(i> 

70 INK i, colour (i) 

80 i = i + 1 

90 WEND 

100 CLOSEIN 

110 MODE screenmode: BORDER 

120 LOAD -filename* 

run 
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Resumen de las ordenes externas de 
AMSDOS 



|A 

!A 

Orden. Especifica que la unidad de disco implicita sea la A. Equivale a | DRIVE con 
parametro A. (La unidad incorporada al ordenador es la A.) 



IB 

IB 

Orden. Especifica que la unidad de disco implicita sea la B. Equivale a | DRIVE con 
parametro B. (La unidad incorporada al ordenador es la A.) 



|CPM 

iCPM 

Orden. Carga un sistema operativo de disco. El sistema operativo suministrado con 
el ordenador es CP/M 2.2. 



|DIR 

IDIR I , <expresion literal)] 

!DIR, "*.BA3" 

Orden. Escribe en la pantalla el directorio del disco (al estilo de CP/ M) y el espacio 
libre. Si se omite el parametro, se supone *.*. 

|DISC 

SDISC 

Orden. Equivale a las ordenes | DISC. IN y | DISC. OUT. 
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|DISC.IN 

IDISC. IN 

Orden. Especifica que las operaciones de lectura se deben hacer con el disco. 

IDISC.OUT 

iDISC.OUT 

Orden. Especifica que las operaciones de escritura se deben hacer con el disco. 

| DRIVE 

! DRIVE, <expresioit literal) 

! DRIVE, "A" 
Orden. Establece qu6 unidad de disco se debe considerar como implicita en lo sucesivo. 

| ERA 

! ERA, <expresion literal) 
IERA, "*.BAK" 

Orden. Borra todos los ficheros que concuerden con la <expresion literal) y no sean 
de solo lectura. Admite simbolos comodin. 

| REN 

! REN, <expresion literal), <expresion literal) 

IREN, "FICHNUEV.BAS" , "FICHANTI . BAS" 

Orden. Da un nuevo nombre a un fichero ya existente en el disco. No puede haber 
otro fichero con el nombre nuevo. No admite simbolos comodin. 

Se puede incluir el parametro USER (usuario, vease mas abajo) en la <expresion 
literal) para modificar transitoriamente la situation implicita. Por ejemplo, 
| REN,"0:NUEVO.BAS","15:ANTIGUO.BAS" da al fichero "ANTI- 
GUO.BAS" de USER 15 el nuevo nombre "NUEVO. BAS" en USER 0, cualquie- 
ra que sea el parametro de |USER especificado con anterioridad. 
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I TAPE 

iTAPE 

Orden. Equivale a las ordenes | TAPE. IN y | TAPE. OUT. Solamente actua si esta co- 
nectado un magnetofono externo. 

|TAPE.IN 

ITAPE. IN 

Orden. Especifica que las operaciones de lectura se deben hacer con la cinta. Sola- 
mente actua si esta conectado un magnetofono externo. 

|TAPE.OUT 

iTAPE. OUT 

Orden. Especifica que las operaciones de escritura se deben hacer con la cinta. Sola- 
mente actua si esta conectado un magnetofono externo. 

| USER 

! USER, <expresion enters) 

! USER, 3 

Orden. Determina con cual de las 16 secciones del directorio (areas de usuario, del 
al 15) deben actuar ciertas ordenes de manejo de disco (CAT, LOAD, | DIR, etc.). 

Un fichero grabado en un area de usuario puede ser transferido a otra con la orden 
| REN. Asi, | REN,"15:EJEMPLO.BAS","0:EJEMPLO.BAS" transfiere el fi- 
chero del area 15 al area sin cambiarle el nombre. 



Copia de ficheros 

Ficheros de AMSDOS con cabecera 

Los ficheros de este tipo se pueden copiar desde CP/M con las ordenes PIP y FILE- 
COPY (vease la parte 2 de este capitulo). Los ficheros creados por AMSDOS con re- 
gistro de cabecera (vease mas arriba) pueden ser copiados en bloque (disco a disco, 
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disco a cinta, cinta a disco), pero en general su contenido no puede ser entendido por 
los programas de CP/M. 



Ficheros ASCII 

Los ficheros creados por AMSDOS sin registro de cabecera estaran generalmente en 
ASCII y son tanto copiables como entendibles por los programas de CP/M. En con- 
crete, los ficheros de programa, de datos y de texto de ASCII son intercambiables en- 
tre AMSDOS y CP/M. 



Ficheros de 'solo lectura' 

Desde CP/ M es posible hacer que un fichero sea de solo lectura y/ o invisible a efectos 
de catalogo del directorio. Esta caracteristica solo se puede establecer desde CP/M, 
pero es respetada por AMSDOS. Para mas detalles, vease la parte 2 de este capitulo 
(programa de ayuda STAT). 



Procedimientos de copia de ficheros 

En las tablas siguientes se describen los procedimientos de transferencia para todo tipo 
de ficheros entre disco y cinta. No se requiere tener conectada la segunda unidad de 
discos. Los programas de BASIC protegidos no pueden ser copiados; tampoco pue- 
den serlo los ficheros binarios (tales como programas de juegos en codigo de maqui- 
na) si no se conocen las direcciones de carga. En la parte 2 de este capitulo se descri- 
ben los programas de ayuda FILECOPY, CLOAD y CSAVE, asi como information 
sobre el programa de ayuda PIP de CP/M. (La copia de ficheros de disco en sistemas 
con dos unidades es normalmente mas facil con el programa de ayuda PIP.) 
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COPIAR OESOE 






BASIC de AMSTRAD 


Datos ASCII 


Binario 


COPIAR HACIA 


en cinta* 




en cinta* 


en cinta* 


BASIC de AMSTRAD 


ITAPE 








en cinta* 


LOAD'FICH' 
(cntiif ciiti) 
SAVE'FICH" 
IDISC 






. 


Binario 








H=HIMEM 


en cinta* 








ITAPE 

MEMORY <p)-l 
LOAD'FICH" 
(Mkiar ciiti) 
SAVE'FICH", B, 

<p>,(lH,(t>l 
IDISC 
MEMORY-H 
<wti 2> 


ASCII 


ITAPE 




ICPM 




en cinta* 


LOAD'FICH' 
(cntiif ciiti) 




CLOAD"FICH",TEMP 
(cotiir ciiti) 






SAVE'FICH" 


A 


CSAVE TEMP,"FICH" 






IDISC 




ERA TEMP 
AMSDOS 
(Mti 1> 




BASIC de AMSTRAD 


1 TAPE 








en disco* 


LOAD'FICH" 

IDISC 

SAVE'FICH" 








ASCII 


ITAPE 




ICPM 




en disco 


LOAD'FICH" 

IDISC 

SAVE'FICH" 


A 


CLOAD'FICH" 
AMSDOS 




Binario 








H-HIMEM 


en disco* 








ITAPE 

MEMORY <p>-l 
LOAD'FICH" 
IDISC 
SAVE'FICH", B, 

(p>,<l>[,<t» 
MEMORY H 
(lOtl 2> 



* Fichero con cabecera 

<nota 1> Requiere espacio libre en el disco para el fichero transitorio "TEMP". 
<nota 2> <p> es la direccion inicial del fichero, <1> es su longitud, <e> es la direccion op- 
cional de ejecucion. 
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COPIAR DESDE 






BASIC de AMSTRAD 


Datos ASCII 


Binario AMSDOS 


Todos los demas 


COPIAR HACIA 


en disco* 


en disco 


en disco* 


en disco 


BASIC de AMSTRAD 


LOAD'FICH" 








en cinta* 


!TAPE 

SAVE'FICH" 

IDISC 








Binario 






H=HIMEM 




en cinta* 






MEMORY (p>-l 
LOAD'FICH" 
ITAPE 
SAVE'FICH'.B, 

(p>, (1>I, («>J 
IDISC 
MEMORY H 
dot. 2> 




ASCII 


LOAD'FICH" 


ICPM 




ICPM 


en cinta* 


ITAPE 


CSAVE FICH 




CSAVE FICH 




SAVE'FICH'.A 


AMSDOS 




AMSDOS 




IDISC 






(•Ota 3) 




ICPM 










CSAVE FICH 










AMSDOS 








BASIC de AMSTRAD 


LOAD'FICH' 








en disco* 
ASCII 


<cabiir tisa) 
SAVE'FICH" 

o bin 
ICPM 

FILECOPY FICH 
<>iji iiitrucioMf) 
AMSDOS 

LOAD'FICH" 


ICPM 






en disco 


SAVE'FICH'.A 


FILECOPY FICH 
Isiji iiitrucioMf) 
AMSDOS 






Binario AMSDOS 






ICPM 




en disco* 






FILECOPY FICH 
<siji iistruciOMf) 
AMSDOS 




Todos los donas 








ICPM 


en disco 








FILECOPY FICH 
liiji iHtruciMts) 
AMSDOS 



* Fichero con cabecera. 

<nota 2> <p> es la direction initial del fichero, <1> es su longitud, <e> es la direction op- 
tional de ejecucion. 

<nota 3> El fichero destino no es utilizable directamente por BASIC. No obstante, esta 
option es interesante como medio de almacenamiento a bajo costo. El fiche- 
ro se puede volver a copiar en disco con CLOAD"FICH". 
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Guia de referenda de los mensajes de error 

Cuando AMSDOS no puede ejecutar una orden, emite un mensaje de error. Si el pro- 
blema es mecanico o radica en los circuitos, el mensaje de error va seguido de la 
pregunta: 

Retry, Ignore or Cancel? 

R (reintentar) hace que se repita la operacion, posiblemente despues de que el usuario 
haya remediado el problema. 

I (ignorar) hace que el ordenador continue como si nada hubiera ocurrido, lo que ge- 
neralmente da lugar a efectos inesperados y posiblemente indeseados. 

C (cancelar) hace que se cancele la operacion, lo que frecuentemente conduce a un 
nuevo mensaje de error. 

Para mas amplia information vease la parte 6 del capitulo 'Para su referencia ...'. 
Lista de errores 

Unknown command 

... la orden no ha sido tecleada correctamente. 

Bad command 

... la orden no puede ser ejecutada por alguna razon; error de sintaxis o configuration 
inadecuada del sistema. 

(noibre de fichero) already exists 
... el usuario ha intentado dar a un fichero el nombre de un fichero ya existente. 

(noibre de fichero) not -found 
... no existe ese fichero. 

Drive <unidad>: directory -full 
... no queda espacio en el directorio para una nueva reseiia. 

Drive <unidad> : disc -full 
... no queda espacio en el disco para grabar nuevos datos. 
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D'ive (unidad): disc changed, closing (noibre de fichero) 

... se ha cambiado el disco antes de cerrar el fichero; el ordenador lo cierra. 

(noibre de fichero) is read only 

... el fichero no se puede modificar porque es de 'solo lectura'. Los ficheros solamente 
se pueden caracterizar como de solo lectura o de lectura/ escritura desde CP/M. 

Drive (unidad): disc missing 

... no hay disco en la unidad, o el disco no esta girando correctamente. La accion acon- 
sejable es extraer el disco, insertarlo de nuevo y pulsar R. 

Drive <unidad> : disc is write protected 

... se ha intentado escribir en un disco que tiene abierto el orificio de proteccion. Si 
efectivamente quiere utilizar ese disco, extraigalo, cierre el orificio de proteccion, in- 
sertelo de nuevo y pulse R. 

Drive (unidad) : real -fail 

... error en los circuitos de lectura. La accion aconsejable es extraer el disco, insertarlo 
de nuevo y pulsar R. 

Drive (unidad): write -fail 

... error en los circuitos de escritura. La accion aconsejable es extraer el disco, inser- 
tarlo de nuevo y pulsar R. 

Failed to load CP/M 

... error de lectura al intentar cargar CP/M con |CPM, o bien no se ha insertado un 
disco de sistema de CP/ M valido. 
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Parte 2: CP/M 

Temas tratados: 

* Cargade CP/M 

* Sector de configuration 

* Modo directo de consola 

* Programas de ayuda transitorios 

* Gestion de perifericos 

CP/M 2.2 se suministra con su ordenador. CP/M es un sistema operativo basado en 
disco. Es un programa especial que da acceso a la gran potencia del CPC664. El he- 
cho de que CP/ M este disponible para tan gran variedad de ordenadores hace que se 
hayan escrito millares de paquetes de aplicacion, entre los que usted puede elegir los 
que mejor satisfagan sus necesidades. 

En la publication 'A Guide to CP/M', SOFT 159, se da una description detallada de 
CP/M, incluida information sobre como programar con CP/M y sobre la implemen- 
tation para AMSTRAD de CP/M. 



Introduction 

El sistema operativo CP/ M proporciona un interfaz de usuario para unidades de dis- 
co: un medio de comunicarse con el ordenador y de gestionar ficheros y perifericos. 

El interfaz fundamental es el denominado modo directo de consola, identificado por 
los mensajes A> y B>. El sistema tiene incorporadas algunas funciones, pero en su ma- 
yoria se obtienen cargando y ejecutando 'programas transitorios'. Se les llama transi- 
torios porque normalmente estan en el disco y solo se los carga en la memoria cuando 
se los va a utilizar. 

El sistema genera ciertos mensajes de error especificos de los circuitos, ademas de los 
mensajes estandar de CP/M. Vease la section 'Guia de referencia de los mensajes de 
error de AMSDOS' en la parte 1 de este capitulo. 



Pistas para el sistema 



La mayor parte de CP/ M reside en las dos pistas mas externas del disco. El ordena- 
dor lee el CP/M en estas pistas y lo carga en la memoria siguiendo un proceso de 
dos etapas. 
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En primer lugar, la orden | CPM de AMSDOS carga el primer sector de la pista nii- 
mero 0. En los discos de sistema, este sector contiene un programa que carga el resto 
de las pistas del sistema en la memoria. Se realizan diversas comprobaciones para ave- 
riguar si las pistas del sistema contienen programas de CP/ M validos y para calcular 
en que posiciones de memoria se los debe cargar. 



Sector de configuration 



Durante el proceso de carga, cuando se activa CP/ M por primera vez, se cargan cier- 
tos parametros de sistema que estan grabados en un sector especial de las pistas del 
sistema. Entre ellos se encuentra el mensaje de 'saludo', codigos especiales de teclado, 
etc. El programa de ayuda SETUP permite adaptar el sector de configuration a las 
necesidades del usuario. 



Codigos de control de consola 

En CP/M se utilizan diversas teclas para controlar la evolution de los programas. Es- 
tas funciones reemplazan la action de la tecla [ESC] utilizada en BASIC, aunque al- 
gunos paquetes de aplicacion devuelven a la tecla [ESC] parte de sus funciones 
habituates. 

[CTRL]S detiene el envio a la pantalla de la information generada por CP/M; 
para reanudarlo se pulsa cualquier tecla. 

[CTRL]C tecleadas al principio de una linea devuelven el control al modo directo 

de consola. Muchos programas de ayuda y aplicaciones reconocen esta 
pulsation como una petition de abandonar la ejecucion del programa. 

[CTRL]P Bascula de la impresora. Activa y desactiva el envio a la impresora de 

toda la information que aparece en la pantalla. 

[CTRL] Final del texto. 



Reconocimiento de los discos 

A menos que el programa tome medidas al efecto (tal como hace FILECOPY), CP/M 
no permite escribir en disco que no haya sido 'reconocido' previamente. Por otra par- 
te, CP/ M solo comprueba el tipo de formato que tiene el disco (SYSTEM, DATA o 
IBM) cuando lo reconoce. En el caso de la unidad de disco incorporada (unidad A), 
CP/M realiza el reconocimiento cada vez que vuelve al modo directo de consola, o 
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cuando se teclea [CTRLJC en respuesta a los mensajes A> o B>. En el caso de la se- 
gunda unidad de disco (unidad B), CP/ M reconoce el disco la primera vez que accede 
a el, despues de reconocer el instalado en la unidad A. 

Si se intenta escribir en un disco que no ha sido reconocido, se provoca el error 

Bdos Err on <unidad>: R/0 

Pulse una tecla para continuar. Si ademas el disco es de formato distinto, se producira 
un error de lectura o de escritura. Pulse C para continuar. 



Ordenes directas de consola 

Hay cinco ordenes directas de consola que se pueden teclear en respuesta a los men- 
sajes A> o B>. Son las siguientes: SAVE, DIR, ERA, REN y TYPE. 

La primera de ellas, SAVE, esta reservada para especialistas. 

Los mensajes de error de CP/M son notablemente concisos y consisten en repetir la 

orden no comprendida o el nombre del fichero seguidos de un signo de interrogation: 

(orden desconodida)? 

El usuario debe teclear nuevamente la orden. 



Nombres de ficheros 

Muchas de las ordenes llevan como parametros nombres de ficheros. En ciertos casos 
se permite la inclusion de simbolos comodin en los nombres (vease la section 'Simbo- 
los comodin' en la parte 1 de este capitulo). El sistema convierte a mayusculas todos 
los nombres de fichero. 

Las ordenes directas de consola y casi todos los programas de ayuda no requieren que 
se escriban los nombres de los ficheros entre comillas. Excepciones a esta regla son 
las ayudas CLOAD y CSAVE (vease mas abajo). 

Los nombres de los ficheros pueden incluir los prefrjos A: o B: para obligar a CP/M 
a utilizar la unidad especificada. 



Cambio de unidad de disco implicita 

Si se tiene conectada la segunda unidad de disco, se puede especificar cual de las dos 
debe ser considerada como implicita. Para ello se teclea A: o B: en respuesta a los 
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mensajes A> o B>. Por cierto, estos mensajes indican cual es la unidad implicita actual. 
La inclusion de A: o B: en los nombres de los ficheros indica que unidad se debe uti- 
lizar en una operation concreta, pero no modifica la unidad implicita. 



DIR 

Escribe en la pantalla la lista del contenido del directorio. Los nombres de los ficheros 
no son reordenados segiin ningun criterio, sino en el orden en que estan sus resefias 
en el directorio. DIR admite simbolos comodin. 

DIR lista todos los ficheros de la unidad iiplicita 

DIR 6: lista todos Ids ficheros de la unidad 1 

DIR *.BAS lista todos los ficheros del tipo . BAS 

DIR B:*.BAS lista todos los focheros del tipo .BAS de la unidad B 

DIR PIP.COM lista solaiente el fichero PIP.COM (si existe) 



ERA 

Borra resefias del directorio. Solo se borra la resefia, de modo que los datos siguen 
estando en el disco hasta que se graben otros en su lugar; no obstante, la information 
es irrecuperable. ERA admite simbolos comodin. Si se especifica *.* como nombre 
de fichero, ERA pide que se le confirme que debe borrar todos los ficheros del disco. 
ERA no lista los nombres de los ficheros que va borrando. Si alguno de los ficheros 
que se le ha pedido que borre es de 'solo lectura' (vease STAT mas adelante), la orden 
queda interrumpida. 

ERA PIP.COM borra el fichero PIP.COM 

ERA B: PIP. COM borra el fichero PIP.COM de la unidad B 

ERA -K-.BAS borra todos los ficheros de tipo .BAS 



REN 

Cambia el nombre de un fichero ya existente. El primer nombre de fichero que se es- 
pecifica es el nuevo, seguido del signo = y del nombre antiguo. Si ya hay en el disco 
un fichero con el nombre nuevo, se emite un mensaje de error. REM no admite sim- 
bolos comodin en los nombres de los ficheros. 

REN FICHNUEV.BAS=FICHANTI.BAS da al fichero FICHANTI.BAS 

el nuevo noibre FICHNUEV. BAS 

REN B:FICHNUEV.BAS=FICHANTI.BAS da al fichero FICHANTI.BAS 

el nuevo noibre FICHNUEV. BAS 
en la unidad B 
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TYPE 

Envia a la pantalla el contenido del fichero especificado. Si el flchero no es un flchero 
ASCII de texto, se produciran efectos imprevisibles, quiza indeseables. 

TIPE EX1.BAS 

exhibe el listado del programa EX1 .BAS. 



Ordenes transitorias 

Para realizar una gestion de ficheros mas elaborada que la que permite el modo di- 
recto de consola es necesario recurrir a los diversos programas de ayuda disponibles. 
Estos programas se invocan sin mas que escribir su nombre, en ocasiones seguido de 
algun parametro. El lector seguramente conocera ya dos de ellos: FORMAT y 
FILECOPY. 

Las ordenes se pueden clasificar en los grupos que se indican a continuaci6n. Estos 
programas estan exhaustivamente documentados en la publication 'A Guide to CP/ M', 
SOFT 159. 

Las ordenes SYSGEN, BOOTGEN, FILECOPY, COPYDISC, DISCCOPY, 
CHKDISC, DISCCHK, FORMAT, SETUP, CSAVE, CLOAD y AMSDOS nan 

sido disenadas por AMSTRAD y solamente funcionan en el sistema AMSTRAD. No 
son trasladables a ningun otro CP/ M, si bien otros fabricantes ofrecen programas si- 
milares (a menudo con el mismo nombre) adaptados a sus equipos. 



Gestion de perifericos 



La ayuda PIP ('programa para intercambio entre perifericos') gestiona el intercambio 
de informaci6n entre el ordenador y sus perifericos. La forma general de la orden es 

PIP <destino>=<ori9en> 

El 'origen' y el 'destino' pueden ser nombres de fichero (en tal caso se admiten sim- 
bolos comodin en el nombre de la fuente) o distintivos de dispositive Los distintivos 
posibles son los siguientes: 

Como origen Como destino 

CON: teclado CON: pantalla 

RDR: interfaz serie PUN: interfaz serie 

LST: impresora 
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Ejemplos: 

PIP B:=A:*.COM 
copia todos los ficheros de tipo .COM de la unidad A a la B. 

PIP SAV.BAS=EX1.BAS 
hace una copia de EX1 .BAS y le da el nombre de SAV.BAS. 

pip con:=exi.bas 

envia el fichero EX1.BAS a la pantalla (efecto similar al de TYPE EX1.BAS). 

pip lst:=exi.bas 

envia el fichero EX1 .BAS a la impresora. 

PIP ENTRADA.TXT=CON: 

capta datos por el teclado y los graba en el fichero ENTRADA.TXT. 

Observe que esta operation se interrumpe con el codigo de control [CTRL]Z y que 
para saltar a la linea siguiente es necesario pulsar [CTRL]J despues de [ENTER] al 
final de cada linea. [CTRL]J genera el codigo ASCII de avance de linea. 

PIP no permite copiar ficheros de un disco a otro en un sistema dotado de una sola 
unidad de disco. Utilice FILECOPY para ello. 

Copia de ficheros y de discos 

Copia de un fichero 

El programa de ayuda FILECOPY permite copiar ficheros de un disco a otro en sis- 
temas de una sola unidad de disco. Informa al usuario de cuando debe intercambiar 
los discos y le da instrucciones completas a traves de la pantalla. Si se incluyen sim- 
bolos comodin en los nombres de los ficheros, FILECOPY pide confirmation de que 
efectivamente se desea copiar cada uno de los ficheros encontrados. El programa es- 
cribe los nombres de los ficheros a medida que los va copiando. 

FILECOPY *.BAS 

copia todos los ficheros del tipo .BAS. 
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FILECOPY EX1.EAS 
copia el fichero EX1 .BAS. 



Copia y comprobacion de discos completos 

DISCCOPY (para el sistema de una sola unidad de disco) y COPYDISC (para el 
sistema de dos unidades) permiten hacer copias del disco entero. Ambos programas 
dan instrucciones completas a traves de la pantalla. 

Si el disco destino no esta inicializado, o si lo esta con un formato distinto del del 
disco origen, estos programas lo inicializan correctamente en el mismo proceso de 
copia. 

Los programas DISCCHK y CHKDISC permiten comparar dos discos y comprobar 
que sus contenidos son identicos. 



Ficheros en cinta 

Hay dos programas de ayuda que realizan la transferencia entre disco y cinta. Salvo 
para el usuario especialista, lo normal es que solo tenga interes transferir ficheros de 
texto (ASCII). 

CLOAD puede llevar dos parametros. El primero es el nombre del fichero origen (cin- 
ta), entre comillas; el segundo es el nombre del fichero dstino (disco). Si se omite el 
segundo parametro, el fichero destino tendra el mismo nombre que el fichero origen; 
en tal caso el nombre tendra que ajustarse a las normas de CP/M. Si se omite el nom- 
bre del fichero origen, CLOAD lee el primero que encuentra en la cinta. Si el primer 
caracter del nombre es el signo de admiration (!), se suprimen los mensajes habituales 
del sistema de cinta. 

Ejemplo: 

CLOAD "MI CARTA" MICARTA.TEXT 

CSAVE puede llevar tres parametros. El primero es el nombre del fichero origen (dis- 
co); el segundo es el nombre del fichero destino (cinta), entre comillas. Si se omite el 
segundo parametro, el fichero se grabara en la cinta con el mismo nombre que tiene 
en el disco. Si el primer caracter del nombre del fichero destino es el signo de admi- 
racion (!), se suprimen los mensajes habituales del sistema de cinta. Si se especifican 
ambos nombres, se puede incluir un tercer parametro para indicar la velocidad de 
transferencia de datos a la cinta: para 1000 baudios o 1 para 2000 baudios. 
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Ejemplos: 



CSAVE TEXTSAL.TXT "TEXTO SALIDA" 1 
CSAVE FICHEDAT 



Gestion del sistema 

STAT 

STAT proporciona una gestion mas sofisticada del directorio y los perifericos. Los 
nombres de ficheros tienen que sujetarse a las normas habituales, incluso en lo refe- 
rente a los simbolos comodin. El programa tiene las formas siguientes: 

STAT 
STAT a: 
STAT b: 

muestran el estado del disco y el espacio libre. 

STAT #.COM 
STAT EX1.BAS 

dan information mas amplia acerca de ficheros concretos. 

STAT *.COM *R/0 
STAT EX1.BAS *R/0 

especifican que el fichero indicado debe ser de 'solo escritura', de forma que no pueda 
ser borrado accidentalmente. 

STAT #.COM *R/W 
STAT EX1.BAS *R/W 

especifican que el fichero indicado debe ser de lectura/ escritura. 

STAT *.COM *SYS 

STAT SECRETO.BAS *SYS 

especifican que el fichero indicado debe ser considerado como fichero 'de sistema', 
para hacerlo invisible a las operaciones de listado del directorio y de copia. El fichero 
seguira disponible para todo lo demas. 

STAT *.COM *DIR 

STAT SECRETO.BAS *DIR 

especifican que el fichero indicado debe ser considerado como fichero 'de directorio', 
para invertir la especificacion de disco 'de sistema'. 
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SETUP 

Este programa permite redefinir las caracteristicas del teclado del CPC664, del siste- 
ma de disco y del interfaz serie. Tambien permite invocar diversas acciones cuando se 
carga CP/M. Al final de su ejecuci6n, actualiza el sector de configuration. El progra- 
ma es controlado por menu; cuando una pantalla es correcta o no requiere modifica- 
tion, se pasa a la siguiente respondiendo N a la pregunta: 

Is this correct (Y/N):_ 

Ci,Es esto correcto?» Se puede interrumpir el programa pulsando [CTRL]C. Una vez 
completos los cambios, el programa pregunta: 

Do you want to update your system disc .(Y/N):_ 

(tQuiere actualizar el disco de sistema?') Esto da la oportunidad de conservar el sec- 
tor de configuration existente pulsando N. Tambien pregunta: 

Do you want to restart CP/M (Y/N) :_ 
lo que permite cargar y probar la nueva configuration pulsando Y. 

Para copiar el sector de configuration en otro disco hay dos procedimientos: uno con- 
siste en ejecutar BOOTGEN (vease mas abajo); el otro, en cargar SETUP con el dis- 
co origen, responder con Y a todas las preguntas e insertar el disco destino antes de 
responder a la penultima. 

Los caracteres de codigo ASCII inferior a 32 (decimal) se pueden introducir en las ca- 
denas literales tecleando el signo f antes del caracter correspondiente, tornado del con- 
junto @. A-Z, [, \, ], >. _. 

Las dos opciones siguientes son las que normalmente requieren mayor atencion: 

** Initial command buffer 

(Tampon de orden initial') Los caracteres introducidos tendran el mismo efecto que 
si se los teclease en modo directo de consola inmediatamente despues de cargar CP/M, 
es decir, ejecutan automaticamente un programa en ese momento. No olvide incluir 
el equivalente a [ENTER], que se representa con los caracteres TM. 

Asi, para ejecutar automaticamente STAT, el tampon de orden initial debe contener 
STAT TM. 

Sign-on string 

Es el mensaje que aparece en la parte superior de la pantalla cuando se carga CP/M. 
Observe los caracteres f J TM, que producen el retorno del carro y el avance de linea. 
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La primera parte del mensaje estandar establece los colores de la pantalla y el borde 
para trabajar con 80 columnas; copielos literalmente si desea conservar esas ca- 
racteristicas. 



Keyboard translations 

('Adaptation del teclado.') Permite asignar nuevos valores ASCII a las teclas, simu- 
lando asi el efecto de la orden KEY DEF de BASIC. Los parametros requeridos son 
los numeros de las teclas y los valores ASCII asignados. Los numeros de las teclas 
estan ilustrados en el diagrama que hay grabado a la derecha del teclado, y tambien 
en el capitulo 'Para su referenda ...'. 

Keyboard expansions 

('Programacion de teclas.') Simula el efecto de la orden KEY de BASIC. 

AMSDOS 

Devuelve el control del sistema a BASIC, a traves del cual se accede a las ordenes de 
AMSDOS. 



Generation de discos 

FORMAT 

El ordenador maneja tres formatos de disco, uno de los cuales tiene dos variantes. 

El formato normal es el de sistema, el cual se obtiene con la orden FORMAT estan- 
dar. Las pistas del sistema se leen del disco que contiene el programa FORMAT.COM 
y se las transfiere al disco d';stino. 

Los restantes formatos se obtienen con la orden FORMAT seguida de un espacio y 
una letra: 

Para formato de datos: FORMAT D 

Para formato IBM: FORMAT I 

Para formato comercial: FORMAT V 

AVISO 

El acuerdo de licencia para su disco de CP/M (que esta codificado electronicamente 
con un numero de serie) permite su utilization en un solo ordenador. Esto significa, 
en particular, que esta prohibido dar a otras personas una copia del disco (la cual se- 
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ria identificable por el numero de serie). Puesto que todas las copias llevan grabado 
el CP/M, tenga buen cuidado de no vender, intercambiar o de ninguna otra forma 
enajenar discos con formato de sistema. Puede en cambio inicializar un disco con for- 
mato 'comercial' (que sera identico a un disco de sistema, solo que con las pistas de 
sistema en bianco) y grabar en el mediante FILECOPY o PIP los programas o datos 
que quiera ceder. Cerciorese de que los programas copiados no estan a su vez sujetos 
a copyright. 

Si adquiere programas grabados en un disco con formato 'comercial', puede, o bien 
copiarlo a un disco de sistema mediante FILECOPY o PIP, o bien convertir el disco 
en un disco de sistema aiiadiendole las pistas de su propio CP/M, para lo cual sirven 
los programas BOOTGEN y SYSGEN. Lea atentamente el 'Acuerdo de Licencia 
para el Usuario Final'. 

MOVCPM 

En ocasiones se necesita una version de CP/M que no se cargue en la memoria en la 
posicion estandar, quiza porque se desee reservar alguna portion de la memoria para 
otros propositos. Para ello habra que desplazar CP/ M a una posicion inferior de me- 
moria. Es posible definir la direction de carga de CP/M, a saltos de 256 bytes. Esta 
especificacion se realiza mediante un parametro (margen 64 a 179) que indica el nu- 
mero de bloques de 256 bytes que quedaran disponibles para CP/M y programas 
transitorios. 

El CP/ M resultante se puede grabar en el disco de sistema con SYSGEN; tambien se 
lo puede copiar mediante una orden ofrecida por MOVCPM. 

La sintaxis es MOVCPM <tamafio> *. Por ejemplo, 

MOVCPM 178 * 

crea una version de CP/ M que se carga en memoria en posiciones que estan 256 bytes 
por debajo de las correspondientes a la version estandar (la cual se crea con el tamano 
maximo posible: 179). 

SYSGEN 

Este programa escribe el resultado de MOVCPM en las pistas de sistema de un disco 
con formato de sistema o con formato comercial. Hay las tres opciones siguientes: 

SYSGEN # 

graba el CP/M generado por una orden MOVCPM inmediatamente precedente. 

SYSGEN (nrabre de fichero) 
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lee el fichero especificado, que seguramente habra sido creado como resultado de una 
orden MOVCPM, y lo escribe en las pistas de sistema. Por ejemplo, SYSGEN 
CPM44.COM. 

SYSGEN 

(sin parametros) pedira al usuario que inserte los discos origen y destino para copiar 
las pistas de sistema del uno al otro. Esta es la opcion que se debe utilizar cuando se 
desea convertir un disco con formato comercial en un disco de sistema. 



BOOTGEN 

Este programa copia el sector 1 , pista (el cargador) y el sector de configuracion de 
un disco a otro. Este programa pide al usuario que inserte los discos de origen y des- 
tino. BOOTGEN se utiliza como parte del proceso de conversion de un disco con for- 
mato comercial en un disco de sistema, o cuando se desea copiar en unos cuantos dis- 
cos un sector de configuracion recien disefiado. 



Programacion avanzada 



El disco suministrado con el ordenador contiene varios programas destinados a los 
usuarios mas expertos. Le sugerimos que consulte la publication 'A Guide to CP/M', 
SOFT 159. Los programas mencionados son los siguientes: 

ASM Ensamblador para 8080. 

DDT Programa de ayuda para la depuration de programas escritos en en- 
samblador 8080. 

DUMP Programa de ayuda para el volcado de ficheros en hexadecimal. 

ED Editor sencillo de contexto. 

SUBMIT Procesador por lotes en modo de consola. 

XSUB Procesador por lotes para programas transitorios. 
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Capftulo 6 
Introduction a LOGO 



En esta section vamos a presentar los conceptos basicos de LOGO, apoyados en ejem- 
plos, y a dar la relation de las instrucciones disponibles. No pretende ser un libro de 
texto ni una guia de referenda exhaustiva; tal es la naturaleza de la publication 'A 
Guide to LOGO', SOFT 160. 



Temas tratados: 

* Concepto de LOGO 

* Carga y ejecucion de Dr. LOGO 

* Graficos de tortuga 

* Escritura de procedimientos 

* Edition de procedimientos 



iQue es LOGO? 

LOGO es un lenguaje de programacion que esta ganando rapidamente gran popula- 
ridad por lo facil que es de aprender y de usar. 

Es el lenguaje ideal para aprender las tecnicas de programacion, cualquiera que sea 
su experiencia. 

Los programas de LOGO se construyen por bloques a base de procedimientos. El pro- 
pio Dr. LOGO es una coleccion de procedimientos, denominados primitivas, que el 
programador combina para formar sus programas. 

Durante la decada de los 70, un grupo de informaticos y educadores, dirigidos por 
Seymour Papert, desarrollo el lenguaje LOGO, con sus graficos de tortuga, como me- 
dio de aprendizaje de la informatica destinado a nifios muy pequenos. 

Incluyeron la tortuga para que los jovenes estudiantes tuvieran, como dice Papert, 'un 
objeto con el que pensar', una herramienta que les ayudara a aprender de forma 
innovadora. 

La tortuga, un dibujo con forma de punta de flecha, puede ser movida por la pantalla 
y controlada con ordenes muy sencillas. 



Dr. LOGO 

Dr. LOGO es una bien meditada implementation de LOGO que ha sido especialmen- 
te adaptada al ordenador AMSTRAD para hacerla aiin mas facil de programar. In- 
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cluye ampliaciones del lenguaje con las que se puede aprovechar la capacidad sonora 
del CPC664; la edition de los programas se facilita por la inclusion de las teclas de 
movimiento del cursor. 



Carga de LOGO 

Para cargar Dr. LOGO, inserte en la unidad de disco una copia de la cara 2 de su 
disco maestro. (En la parte 10 del 'Curso de introduction' se explica como copiar el 
disco maestro.) 

Pulse las teclas [CTRL], [SHIFT] y [ESC] simultaneamente para reinicializar la 
maquina. 

Teclee | CPM [ENTER] y LOGO se cargara automaticamente. 
En el monitor aparecera el mensaje: 

Welcome to 

Amstrad LOGO VI. 1 
Copyright (c) 1983, Digital Research 
Pacific Grove, California 

Dr. LOGO is a trademark of 
Digital Research 

Product No. 6002-1232 

Please wait 

Al cabo de unos segundos desaparecera el mensaje y aparecera el signo de interroga- 
tion ?, que es el analogo del Ready de BASIC o del A> de CP/ M. 

El signo de interrogation indica que Dr. LOGO esta esperando que se le ordene algo 
a traves del teclado. 



Primeros pasos 

Escriba (en minusculas) lo siguiente: 
fd 60 CENTER] 

y vera como aparece la tortuga y como se mueve hacia delante 60 unidades, dibujando 
al mismo tiempo. La pantalla se ha borrado y ha reservado una zona amplia para los 
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graficos y una mas pequefla para el texto, con el signo ? cerca del borde inferior de 
la pantalla. 

Dr. LOGO decide en ocasiones redistribuir la pantalla para asignar mayor superficie 
a los graficos o al texto, segiin convenga. 

Escriba: 

rt 90 CENTER! 

y la tortuga girara 90 grados hacia la derecha. (De ahora en adelante no seguiremos 
recordandole que debe pulsar [ENTER] al final de cada linea.) 

Escriba ahora: 

-fd 60 

y vera como la tortuga dibuja otra recta de 60 unidades de longitud perpendicular a 
la primera. 

Experimente con estas sencillas instrucciones, fd (de forward, adelante), bk (de back- 
ward, atras), rt (de right, derecha) y It (de left, izquierda), y observe la pantalla. 



Procedimientos en Dr. LOGO 

Un procedimiento es una lista de instrucciones que explica a Dr. LOGO como reali- 
zar cierta tarea. 

Los procedimientos que usted escriba iran ampliando la lista de los incorporados a 
Dr. LOGO, que son las denominadas primitivas. 

fd, bk, rt y It son primitivas incorporadas que se pueden incluir en nuevos 
procedimientos. 

Otra primitiva util es cs, que borra la pantalla y envia la tortuga a su situation (po- 
sition y orientation) initial. 



Un procedimiento sencillo 

Facilmente se comprende que si repetimos cuatro veces las instrucciones 

■fd 60 rt 90 
obtendremos un cuadrado de 60 unidades de lado. 
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El mismo efecto se consigue escribiendo 

repeat 4 E-fd 60 rt 90] 

(repeat=repetir). Borre la pantalla, teclee esta instruction y observe que ocurre. 

Podemos asignar esa formula a un nuevo procedimiento, que denominaremos cua- 
drado. Escriba lo siguiente: 

to cuadrado 

repeat 4 C-fd 60 rt 90] 

end 

A partir de ahora, Dr. LOGO entendera cuadrado como si fuera una primitiva; cada 
vez que encuentra esa palabra, dibujara un cuadrado. Al procedimiento le podriamos 
haber dado cualquier otro nombre, pero este nos recuerda cual es la tarea que el pro- 
cedimiento realiza. 

Dr. LOGO permite que se teclee una serie de instrucciones seguidas, en una misma 
linea. Asi, cuadrado rt 45 cuadrado dibuja dos cuadrados intercalando un giro de 
45 grados entre ellos. 



Procedimientos con parametros 

Un procedimiento como el que acabamos de definir no nos serviria de mucho si no 
pudieramos decirle como de grande queremos que sea el cuadrado. Para ello podemos 
definir nuestro procedimiento de la siguiente manera: 

to cual quiercuadrado : lado 
repeat 4 C-fd : lado rt 90] 
end 

con lo que hemos introducido la idea de variable, llamada, en este caso, :lado 

Observe que el nombre va precedido del signo de dos puntos, lo que indica a Dr. 
LOGO que :lado es una variable, no una orden. 

Cuando utilicemos este procedimiento, tendremos que suministrarle un valor de en- 
trada. Por ejemplo, cualquiercuadrado 150 dibujara un cuadrado de 150 unidades 
de lado. 

Enlacemos ahora dos procedimientos: 

cs cualquiercuadrado 100 rt 45 cualquiercuadrado 150 
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La tortuga ha dibujado los dos cuadrados, girando el segundo 45 grados con respecto 
al primero. 

Observe que Dr. LOGO escribe el signo de exclamation ! para indicar que una linea 
es continuation de la anterior. 



Utilization de variables para recordar valores 

Dr. LOGO utiliza las variables, no solo para suministrar valores de entrada a los pro- 
cedimientos, sino tambien para recordar valores. 

Empecemos por definir un nuevo procedimiento: 

to triangulo 

repeat 3 C-fd :lado rt 120] 

end 

Para probarlo podemos escribir: 

make "lado 100 
triangulo 

(mafce=hacer). 

Si queremos averiguar que valor tiene asignado actualmente la variable :lado, basta 
con que tecleemos :lado a la derecha de ? y Dr. LOGO escribira su valor. 

Tambien podemos utilizar la variable :lado en un procedimiento distinto. Observe en 
el siguiente procedimiento como vamos incrementando el valor de :lado a cada paso 
para que el dibujo vaya siendo cada vez mayor: 

to dibujo 

triangulo It 60 triangulo rt 60 

make "lado :lado+4 

dibuj o 

end 

make "lado 10 

cs dibujo 

Pulse [ESC] cuando quiera detener el programa. 



Edition de programas y procedimientos 

Dr. LOGO permite corregir los errores de mecanografia y modificar los procedimien- 
tos definidos previamente. Los recursos de edition son los siguientes: 



Introduction a LOGO 6/5 



Las teclas del cursor < — >T i, que mueven el cursor caracter a caracter o linea a linea. 

Las teclas del cursor < — >t|, combinadas con [CTRL], llevan el cursor al principio o 
al final de la pagina, o a la izquierda o a la derecha de la linea. 

[CTRL] borra el caracter que esta en la posicion del cursor; [DEL] borra el caracter 
que esta a la izquierda del cursor. 

[ENTER] indica a Dr. LOGO que se ha terminado de editar una linea de ordenes; 
cuando se esta editando un procedimiento, intercala una linea en bianco. 

[ESC] abandona la edicion. ^ ! 

r 

[COPY] indica a Dr. LOGO que ha terminado la edicion del procedimiento. 

Cuando este introduciendo ordenes o procedimientos nuevos, corrija el texto de la li- 
nea actual con los recursos descritos. Todos los caracteres que teclee, a exception de 
los mencionados, seran insertados en la posicion del cursor. 

Para editar un procedimiento definido previamente, utilice la orden ed. 

Dr. LOGO escribe la version antigua del procedimiento y permite que se utilice los 
recursos descritos para mover el cursor por la pantalla y modificar lo que se desee. 

Modifique el procedimiento dibujo tecleando ed "dibujo. Practique con las diferen- 
tes teclas de edicion. Cuando haya terminado, pulse [ESC]; Dr. LOGO abandonara 
lo que hay en la pantalla y conservara la version anterior del procedimiento. 

Teclee otra vez ed "dibujo, ponga un 8 en lugar del 4, pulse [COPY] para terminar 
la edicion y vuelva a ejecutar el procedimiento para observar el efecto de la modifi- 
cation. No olvide asignar un valor inicial a :lado. 



Sugerencias para el trabajo con Dr. LOGO 

La memoria utilizada por Dr. LOGO esta dividida en nodos. Para averiguar cuantos 
quedan libres escriba: 

nodes 

En ocasiones, cuando Dr. LOGO ha utilizado casi todos los nodos disponibles, dedi- 
cara unos instantes a reorganizar la memoria, durante los cuales se podra observar 
como se para la tortuga. El usuario puede pedir a Dr. LOGO que reorganice la me- 
moria escribiendo: 

recyc le 
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Esto generalmente permite continuar despues de que Dr. LOGO se hay a quejado de 
que no le quedan mas nodos libres. 

Si piensa grabar sus procedimientos en disco, asegiirese antes de que en el disco haya 
suficiente espacio libre. Puede para ello utilizar la orden CAT de AMSDOS (vease la 
parte 7 del 'Curso de introduction'). 

Eche un vistazo a las paginas siguientes y pruebe alguno de los ejemplos; no espere 
entenderlo todo al primer intento. A medida que vaya familiarizandose con Dr. LOGO 
ira siendo capaz de utilizar nuevas instrucciones. 

Cuando desee concluir su sesion de trabajo con Dr. LOGO escriba: 

bye 

Lista de las primitivas de Dr. LOGO 

En esta section damos la relation de las primitivas de Dr. LOGO, agrupadas en clases 
y ordenadas alfabeticamente dentro de cada grupo. Para la mayor parte de ellas se 
incluyen ejemplos de aplicacion. 

PROCESO DE PALABRAS Y LISTAS 

(Observe que en los ejemplos hemos incluido los signos ? y > donde corresponde.) 

ascii 

Da el codigo ASCII del primer caracter de la palabra de entrada. 

?ascii "6 

71 

?ascii " g 

103 

bf 

{but first, todos menos el primero). Da como salida todos los caracteres de la entrada, 
salvo el primero. 

?b-f "trama 

rama 

?b-f [1 2 3] 

C2 3] 
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bl 

(but last, todos menos el ultimo). Da como salida todos los caracteres de la entrada, 
salvo el ultimo. 

?bl "tramas 

trama 

?bl CI 2 3 4] 

112 3] 

char 

Da el caracter cuyo codigo ASCII es el numero de entrada. 

?char 83 
S 

count 

(contar). Da el numero de elementos de que consta la entrada. 

?count "dos 

3 

?count [0 12 3] 

4 

emptyp 

(empty property, propiedad de vacio). Da como salida TRUE (verdadero) si la entra- 
da es una palabra vacia o una lista vacia, y FALSE (falso) en caso contrario. 

?emptyp " 
TRUE 

?emptyp [] 
TRUE 

?emptyp [x] 
FALSE 

?make "x [] 
emptyp :x 
TRUE 

flrst 

(primero). Da como salida el primer elemento del objeto de entrada. 

?+irst "kilo 

k 

7-first [1 2 3] 

1 
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fput 

(firsput, poner el primero). Da como salida un objeto formado poniendo el primer 
objeto de entrada como primer elemento del segundo objeto de entrada. 

?-fput "t "rama 

trama 

?-fput 1 C2 3] 

CI 2 3] 



item 

(elemento). Da como salida el elemento especificado del objeto de entrada. 

?item 4 "grande 
n 

list 

Da como salida una lista consistente en los objetos de entrada; conserva los corchetes 
externos de la lista (comparese con se). 

?(list 1 2 3 4) 

CI 2 3 43 

?list "garcia I Javier] 

Cgarcia [Javier]] 

?<list) 

C] 

se 

(sentence, frase). Da como salida una lista consistente en todos los objetos de entrada; 
elimina los corchetes externos de la lista (comparese con list). 

?make " 1 ista_instruccione5 rl 

repeat 4 C-fd 50 rt 90] 

?run (se "cs : 1 ista_instrucciones "ht) 

El signo de subrayar que figura entre lista e instrucciones se obtiene con [SHIFTJ0. 

word 

(palabra). Da una palabra formada con las palabras de entrada. 

?word "nueva "mente 
nuevamente 
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wordp 

Da como salida TRUE (verdadero) si el objeto de entrada es una palabra o un numero. 

?wordp "ho la 
TRUE 

?wordp [ ] 
FALSE 



Operaciones aritmeticas 



cos 

Da como salida el coseno del numero de entrada (considerado en grados). 

?C05 60 

0. 500000000017049 

int 

Da la parte entera del numero de entrada. 

?int 4/3 
- 1 

random 

Da un entero aleatorio no negativo menor que el numero de entrada. 

?randora 20 

sin 

Da como salida el seno del numero de entrada (considerado en grados). 

?sin 30 

0. 500000000017049 
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Da la suma de los numeros de entrada. 

?+ 2 2 
4 

?2+2 
4 



Da la diferencia de los dos numeros de los numeros de entrada. 

?- 10 5 

5 

?10-5 

5 



Da el producto de los numeros de entrada. 

?* 4 6 
24 

?4*6 
24 



Da el cociente de los dos numeros de entrada. 

?/ 25 5 

5 
?25/5 

5 



Operaciones logicas 



and 

Da como salida TRUE (verdadero) si el valor logico de todas las expresiones de en- 
trada es 'verdadero'. 

?and (3<4) (7>4) 
TRUE 
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not 

Da como salida TRUE si la expresion de entrada es 'falsa'. 

Da como salida FALSE si la expresion de entrada es 'verdadera'. 

?not (3=4) 

TRUE 

?not (3=3) 

FALSE 

or 

Da como salida FALSE (falso) si todas las expresiones de entrada son 'falsas'. 

?or "TRUE "FALSE 

TRUE 

?or (3=4) (1=2) 

FALSE 



Da como salida TRUE (verdadero) si los dos objetos de entrada son iguales, y FAL- 
SE en caso contrario. 

?= "LOGO "LOGO 

TRUE 

?1=2 

FALSE 



Da como salida TRUE (verdadero) si la primera palabra de entrada es mayor que la 
segunda, y FALSE en caso contrario. 

?>19 20 
FALSE 
?20>19 
TRUE 



Da como salida TRUE (verdadero) si la primera palabra de entrada es menor que la 
segunda, y FALSE en caso contrario. 

?< 27 13 
FALSE 
?13<27 
TRUE 
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Variables 

local 

Hace que la variable o variables de entrada sean accesibles solamente al procedimien- 
to actual y a los procedimientos por el invocados. 

X local "x "y "z) 

make 

(hacer). Asigna a la variable de entrada el valor del objeto de entrada. 

?make "lado 50 

?:lado 

50 



Procedimientos 



end 

Indica el final de la definition de un procedimiento; la palabra end debe figurar sola 
al principio de la ultima linea. 

?to cuadrado 

>repeat 4 C+d 50 rt 90] 

>end 

cuadrado defined 

?cuadrado 



po 

(print out, listar). Da el listado de la definition de los procedimientos o variables 
especificados. 

?po "cuadrado 

to cuadrado 

repeat 4 C+d 50 rt 90] 

end 

?po "x 

x is 3 
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pots 

(print out titles, listar titulos). Da la lista de los nombres y titulos de todos los pro- 
cedimientos que hay en el espacio de trabajo. 

?pots 

to 

Sefiala el inicio de la definition de un procedimiento. 

?to cuadrado 

>repeat 4 [-fd 50 rt 90] 

>end 

cuadrado de-fined 



Edicion 

ed 

(edit, editar, corregir). Carga los procedimientos o variables especificados en el tam- 
pon del editor de pantalla. 

?ed "cuadrado 



Pantalla de texto 

ct 

(clear text, borrar texto). Borra la ventana en la que esta actualmente el cursor; lleva 
el cursor al extremo superior izquierdo de la ventana. 

?ct 



(print, escribir). Escribe en la pantalla de texto los objetos de entrada; suprime los cor- 
chetes externos de las listas; efectua un retorno del carro despues de escribir el ultimo 
objeto. (Comparese con show y type.) 

?pr [a b c] 
a b c 
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setsplit 

Especifica el numero de lineas de texto que debe tener la pantalla mixta. 
?setsplit 10 

show 

(mostrar). Escribe en la pantalla de texto el objeto de entrada; mantiene los corchetes 
externos de las listas; efectua un retorno del carro. (Comparese con pr y type.) 

?shDW [a b c] 
[a b c] 

ts 

(text screen, pantalla de texto). Asigna la pantalla completa como pantalla de texto. 
?ts 



type 

(mecanografiar). Escribe en la pantalla los objetos de entrada: suprime los corchetes 
externos de las listas; no efectua un retorno del carro despues de escribir el ultimo ob- 
jeto. (Comparese con pr y show.) 

?type [a b c] 
a b c 



Pantalla grafica 



Como puede observar, la pantalla esta en modo 1, con cuatro colores posibles; el sis- 
tema de coordenadas es igual al de BASIC. Las coordenadas se redondean al numero 
par mas proximo correspondiente a un punto de la pantalla. Los colores rojo, verde 
y azul se pueden graduar con los numeros 0, 1 y 2. 

clean 

(limpiar). Borra la pantalla grafica sin afectar a la tortuga. 

?-fd 50 
?clean 
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cs 



(clear screen, borrar pantalla). Borra la pantalla grafica y restablece la situaci6n ini- 
cial de la tortuga: posicion en el punto [0,0] y rumbo grados (norte), pluma abajo. 

?rt 90 + d 50 

dot 

(punto). Dibuja un punto en la posicion especificada por la lista de coordenadas con 
el color de pluma actual. 

?dot [50 10] 

fence 

(valla). Establece un limite que confina la posicion de la tortuga a la pantalla grafica 
visible. Ese limite se suprime con window. 

?+ ence 

?+d 300 

Turtle out o-f bounds 

fs 

(full screen, pantalla completa). Asigna la pantalla entera a los graficos. 
?fs 

pal 

(palette, paleta). Escribe la lista de los numeros que representan las proporciones de 
los colores rojo, verde y azul asignadas a la pluma especificada. 

?pal 2 
[0 2 2] 

setpal 

(set palette, definir paleta). Asigna una combination de colores a la paleta utilizada 
por la pluma especificada. La lista representa las proporciones de rojo, verde y azul. 

?setpal 311 1 2] 
?pal 3 
[1 1 2] 
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sf 

{screen facts, datos de pantalla). Escribe en la pantalla toda la information relativa a 
la pantalla grafica. El formato es: [<color de fondo> <estado de pantalla) <lineas texto) 
<estado de ventana) <e>]. 

<color de fondo) es el numero de pluma para el fondo, siempre igual a 1. 

<estado de pantalla) puede ser SS (pantalla mixta), FS (pantalla completa para gra- 
ficos) o TS (pantalla completa para texto). 

<lineas texto) es el numero de lineas reservadas para texto en la pantalla mixta. 

<estado de ventana) indica el modo WINDOW, WRAP o FENCE. 

<e> es siempre igual a 1. 

10 SS 5 FENCE 13 



SS 

(split screen, pantalla mixta). Establece una ventana para texto dentro de la pantalla 
grafica. 

?ss 



window 

(ventana). Permite que la tortuga dibuje fuera de los limites de la pantalla grafica vi- 
sible, despues de una orden wrap o fence. 

?-fence -fd 300 
Turtle out o-f bounds 
?window 
?+d 300 



wrap 

(envoltura). Hace que la tortuga aparezca por el lado opuesto de la pantalla cuando 
sobrepasa algiin borde. 

?cs wrap 

?rt 5 fd 1000 

?cs window 

?rt 5 -fd 1000 
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Graficos de tortuga 



bk 

(backward, atras). Mueve la tortuga el numero de pasos especificado por el numero 
de entrada, en sentido opuesto al senalado por su rumbo. 

?cs -fd 150 
?bk 50 



fd 

(forward, adelante). Mueve la tortuga el numero de pasos especificado por el numero 
de entrada, en el sentido senalado por su rumbo. 

?-fd 80 



ht 

(hide turtle, ocultar tortuga). Hace la tortuga invisible, con lo que los dibujos son me- 
nos confusos y se realizan a mayor velocidad. 

?ht 

?cs -fd 50 
?st 



It 

(left, izquierda). Gira el rumbo de la tortuga hacia la izquierda el numero de grados 
especificado por el numero de entrada. 

?lt 90 



pd 

(pen down, bajar pluma). Baja la pluma de la tortuga para que esta dibuje al moverse. 

?-fd 20 pu -fd 20 

?pd 

?-fd 20 
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pe 

(pen erase, pluma de borrar). Cambia el color de la pluma de la tortuga a 0, que es 
el color del fondo; la tortuga borra lo que encuentra dibujado en su camino. 

?-fd 50 
?pe 

?bk 25 
?-fd 50 
?pd -fd 25 

pu 

(pen up, subir pluma). Sube la pluma de la tortuga para que esta no dibuje al moverse. 

?-fd 30 
?pu 

?-fd 30 

?pd +d 30 

px 

(pen exchange, pluma de inversion). Hace que la tortuga cambie el color de los pixels 
que encuentra coloreados en su camino por el color complementario o inverso. 

?-fd 20 pu -fd 20 

?pd setpc 3 -fd 20 

?px 

?bk 80 

?-fd 80 

?pd bk 100 

rt 

(right, derecha). Gira el rumbo de la tortuga hacia la derecha el numero de grados 
especificado por el numero de entrada. 

?rt 90 

seth 

(set heading, establecer rumbo). Orienta la tortuga en el rumbo absoluto especificado 
por el numero de entrada (en grados). Los numeros positivos la hacen girar en el sen- 
tido de las agujas del reloj; los negativos, en el sentido contrario. 

?seth 90 
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setpc 

(set pen colour, establecer color de pluma). Asigna a la tortuga la pluma especificada 
por el numero de entrada. (0 es la pluma del fondo.) 

?setpc 1 



setpos 

(set position, establecer posicion). Lleva la tortuga al punto especificado por la lista 
de coordenadas. 

?setpos [30 20] 



st 

(show turtle, mostrar tortuga). Hace la tortuga visible, si estaba oculta. 

?ht 

?+d 50 
?st 

tf 

(turtle facts, datos de tortuga). Escribe en la pantalla la information relativa a la tor- 
tuga. El formato es: [<coor x> <coor y> <rumbo> <estado de pluma) <pluma n> <visible>]. 

<coor x> y <coor y> son las coordenadas de la posicion actual de la tortuga. 

<rumbo> es la orientation actual de la tortuga. 

<estado de pluma) indica PD (pluma bajada), PE (pluma de borrar), PX (pluma de 
inversion) o PU (pluma subida). 

<pluma n> indica el numero de pluma de la tortuga. 

<visible> es TRUE (verdadero) si la tortuga es visible. 

?setpos [15 30] 

?rt 60 

?setpc 3 

?pe 

?ht 

?t + 

[15 30 60 PE 3 FALSE] 
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Gestion del espacio de trabajo 

er 

(erase, borrar). Borra del espacio de trabajo los procedimientos especificados. 

?er "cuadrado 

ern 

(erase name, borrar nombre). Borra del espacio de trabajo las variables especificadas. 

?make "lado [100] 

?make "angulo [45] 

?: lado : angulo 

[100] 

[45] 

?ern [lado angulo] 

?: lado 

lado has vo value 

nodes 

Da el numero de nodos que quedan libres en el espacio de trabajo. 
?nodes 

recycle 

Libera el mayor numero posible de nodos y reorganiza el espacio de trabajo. 

?recycle 
?nodes 

Listas de propiedades 

glist 

(get list, obtener lista). Da una relation de todos los objetos del espacio de trabajo 
que tienen la propiedad de nombre especificado en sus respectivas listas de propiedades. 

?glist ".DEF 
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gprop 

{get property, obtener propiedad). Da el valor que tiene en el objeto de entrada la pro- 
piedad cuyo nombre se especifica. 

?make "estatura "172 
?gprop "estatura " . APV 
172 



plist 

{property list, lista de propiedades). Escribe la lista de propiedades del objeto de 
entrada. 

?plist "estatura 
C.APV 172] 



pprop 

{put property, poner propiedad). Pone el par de propiedades de entrada en la lista de 
propiedades del objeto especificado. 

?pprop "usted " . APV "lector 

?: usted 

lector 



remprop 

{remove property, retirar propiedad). Suprime la propiedad especificada de la lista de 
propiedades del objeto de entrada. 

?rernprop "usted ".APV 



Ficheros en disco 

dir 

Da la lista de todos los nombres de ficheros creados por Dr. LOGO que se encuentran 
en la unidad de disco implicita; acepta simbolos comodin. 

?dir "a:???????? 

(Consulte la parte 1 del capitulo 'AMSDOS y CP/ M\ donde se explica como utilizar 
los simbolos comodin; Dr. LOGO no acepta el *.) 
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load 

Lee el fichero especificado y lo carga en el espacio de trabajo. 

?load "prueba 
?load "b:dibujD5 

save 

Graba en el disco el contenido del espacio de trabajo con el nombre de fichero 
especificado. 

'save " d i buj os 



Teclado y joystick 



buttonp 

(button pressed, boton pulsado). Da como salida el valor logico TRUE (verdadero) si 
esta pulsado el boton del joystick cuyo numero se especifica. 

?to disparo 

Mabel "bucle 

>i-f (buttonp 0) tpr tfuego el 0!]] 

>i-f (buttorip 1) tpr t-fuego el 1!]] 

>go "bucle 

>end 

La situacion de la empufiadura se determina con paddle. 



keyp 

(key pressed, tecla pulsada). Da como salida el valor logico TRUE (verdadero) si se 
ha tecleado alguna letra y esta en espera de ser leida. 

?to tecla 

>i-f Ueyp top rcl top "] 
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paddle 

Determina la situaci6n del joystick o el 1 . El significado de los valores generados 
es el siguiente: 

Valor Significado 

255 Inactivo 

Arriba 

1 Arriba y a la derecha 

2 A la derecha 

3 Abajo y a la derecha 

4 Abajo 

5 Abajo y a la izquierda 

6 A la izquierda 

7 Arriba y a la izquierda 

?paddle 
255 

Los botones de disparo se comprueban con buttonp. 



rc 

{read character, leer caracter). Da como salida el primer caracter que se teclee a 
continuation. 

?raake "tec la rc 

... ahora teclee una X... 

?: tecia 
X 



rl 

(read list, leer lista). Da como salida una lista que consiste en la linea que se va a te- 
clear a continuation. La entrada tiene que terminar con un retorno del carro. 

?make " 1 ista_iri5trucciDnes rl 
repeat 4 Ltd 50 rt 90] 
?: 1 ista_instrucciones 
[< epeat 4 I f d 50 rt 90] J 
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rq 



{read quote, leer literalmente). Da como salida una palabra que consiste en la linea 
que se va a teclear a continuation. La entrada tiene que terminar con un retorno del 



carro. 



?rnake "or den rq 

repeat 3 Cfd 60 rt 120] 

7 : orden 

repeat 3 [fd 60 rt 120] 



SONIDO 



Las ordenes de sonido son peculiares de la implementation para AMSTRAD de Dr. 
LOGO; son similares a sus analogos en BASIC. 

Consultese la parte 9 del 'Curso de introduction'. 



sound 

Envia un sonido a la cola de sonidos. El formato es: [<situacion de canales) <periodo 
de tono> <duracion> <volumen> <envolvente de volumen) <envolvente de tono> <ruido>]. 
Solamente los dos primeros parametros son obligatorios. 

7'aound l 1 20 501 



env 

Define una envolvente de volumen. El formato es: [<numero de la envolvente) <seccio- 
nes de envolvente)]. 

?env LI 100 2 20] 
?sour.d £1 200 300 5 1] 



ent 

Define una envolvente de tono. El formato es: [<numero de la envolvente) <secciones 
de envolvente)]. 

?ent CI 100 2 20] 
?sourid CI 200 300 5 11] 
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release 

Libera los canales de sonido que han sido retenidos en una orden sound. Los canales 
que se liberan son: 

Valor de entrada Canales liberados 

Ninguno 

1 A 

2 B 

3 AyB 

4 C 

5 Ay C 

6 By C 

7 A, B y C 

?release 1 



Control de ejecucion 

bye 

Da por terminada la actual sesion de trabajo con Dr. LOGO. 

''bye 

CO 

Reanuda la ejecucion tras una pausa provocada por [CTRL]Z, pause o ERRACT. 



go 

Ejecuta la linea del procedimiento actual que esta identificada por la etiqueta que se 
menciona como entrada. 

>gc "turle 
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if 

Ejecuta una de dos listas de instrucciones, dependiendo del valor logico de la expre- 
sion de entrada; las instrucciones deben ser listas literales entre corchetes. 

>i-f (a>b) [pr [a es mayor-]] 
>[pr [b es mayor]] 



label 

Identifica una linea para que pueda ser ejecutada por una instruction go. 
Mabel "bucle 



op 

(output, salida). Convierte el objeto de entrada en la salida del procedimiento y da 
por terminada la ejecucion de este. 

?op [ r fsu 1 tado] 



repeat 

Ejecuta la lista de instrucciones el numero de veces especificado. 
''repeat 4 [-fd 50 rt 90] 

run 

Ejecuta la lista de instrucciones especificada. 

?mal<e " 1 ista_instrucc iones [-fd 40 rt 90] 
?run : lista instrucciones 



stop 

Detiene la ejecucion del procedimiento actual y retorna a TOPLEVEL (donde aparece 
el signo ?) o al procedimiento que lo invoco. 

"?stop 
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wait 

Introduce en la ejecuci6n del procedimiento una pausa de duration especificada (en 
unidades de 0.22 segundos). 

''wait 20 



Gestion de excepciones 



catch 

Intercepta errores y situaciones especiales que ocurran durante la ejecucion de la lista 
de entrada. 

>catch "error C+ [] []] 
>pr Caqui estoy] 
aqu i estoy 



error 

Da una lista cuyos elementos describen el error mas reciente. 

>catth "error [seguir. hasta. error ] 
>show error 



pause 

Suspende la ejecucion del procedimiento actual para permitir la interaction con el in- 
terprete o el editor. 

>if :=ize>5 [pause] 



throw 

Ejecuta la linea identificada por el nombre de entrada de una expresion catch anterior. 

?throw "TOPLEVEL 
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Primitivas del sistema 

.contents 

Muestra el contenido del espacio para simbolos de Dr. LOGO. 

.deposit 

Pone el segundo niimero de entrada en la position de memoria especificada por el 
primero. 

.examine 

Escribe el contenido de la position de memoria especificada. 



Variables del sistema 



ERRACT 

Si tiene el valor 16gico TRUE (verdadero), introduce una pausa cuando se produce 
un error y luego retorna a TOPLEVEL. 



FALSE 

Valor de sistema. 

REDEFP 

Si tiene el valor logico TRUE (verdadero), permite la redefinition de primitivas. 

TOPLEVEL 

throw "TOPLEVEL provoca la salida de todos los procedimientos pendientes. 
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TRUE 

Valor del sistema. 

.APV 

Valor de propiedad asociado; es el valor de una variable global. 

.DEF 

Definition de un procedimiento. 

.PRM 

Identifica una primitiva. 
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Capitulo 7 

Para su referenda 



Este capitulo contiene la mayor parte de la information que 
usted pueda necesitar para aprender a manejar el ordenador. 

Temas tratados: 

* Posiciones del cursor y codigos de control 

* Interrupciones 

* Caracteres ASCII y caracteres graficos 

* Esquemas del teclado 

* Sonidos 

* Mensajes de error 

* Palabras reservadas de BASIC 

* Plantillas 

* Conexiones 

* Impresoras 

* Joysticks 

* Organization de los discos 

* Memoria 

Para mas completa information sobre BASIC y el firmware del CPC664, consiiltense 
las publicaciones SOFT 945 y SOFT 946, respectivamente. 

Parte 1: 

Posiciones del cursor y codigos de 

control 

En ciertas aplicaciones el cursor puede encontrarse fuera de la ventana de texto. Al- 
gunas operaciones fuerzan al cursor a ocupar una position legal antes de poder ser 
llevadas a cabo. Son las siguientes: 

1. Escribir un caracter. 

2. Exhibir el signo del cursor (el rectangulo). 
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3. Obedecer los codigos de control sefialados con un asterisco en la tabla siguiente. 
El proceso de forzar el cursor a ocupar una position legal consiste en lo siguiente: 

1. Si el cursor esta a la derecha del borde derecho de la ventana, salta al extremo 
izquierdo de la linea siguiente. 

2. Si el cursor esta a la izquierda del borde izquierdo de la ventana, salta al extremo 
derecho de la linea anterior. 

3. Si el cursor esta por encima del borde superior, el contenido de la ventana se des- 
plaza una linea hacia abajo y el cursor aparece en la primera linea. 

4. Si el cursor esta por debajo del borde inferior, el contenido de la ventana se des- 
plaza una linea hacia arriba y el cursor aparece en la ultima linea. 

Las comprobaciones y operaciones se realizan en el orden de la lista anterior. Las po- 
siciones ilegales del cursor pueden ser cero o negativas, es decir, a la izquierda y por 
encima de la ventana. 

Los codigos del margen a 31 no producen ningun simbolo cuando se los envia a la 
pantalla, sino que son interpretados como codigos de control (y deben ser utilizados 
con cuidado). Algunos de ellos alteran el significado de uno o varios de los codigos 
siguientes, que hacen las funciones de parametros del codigo original. 

Si se envia un codigo de control a la pantalla grafica, su efecto es dibujar un simbolo 
relacionado con la funcion que tendria si se lo generase mediante el teclado (v. g., 
&07'BEL':[CTRL]G). Ejercera su funcion de control si se lo envia a la pantalla 
mediante: 

PRINT CHR*(Bd07) o bien PRINT "ft" 

donde el simbolo se obtiene pulsando [CTRL]G en el momento de teclear la instruc- 
tion PRINT. 

Los codigos sefialados con * en la lista siguiente fuerzan al cursor a ocupar una po- 
sition legal en la ventana antes de ser obedecidos. Para cada codigo se da el numero, 
en hexadecimal y en decimal, y la description de su funcion. 
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Codigos de control 



Valoi 




Nombre Parametro 


Significado 


&00 





NUL 


Sin efecto. Se lo ignora. 


&01 


1 


SOH a 255 


Escribe el simbolo correspondiente al 
valor del parametro, lo que permite es- 
cribir los simbolos del al 31. 


&02 


2 


STX 


Hace invisible el cursor de texto. Equi- 
vale a la orden CURSOR con el pa- 
rametro (conmutador de usuario) igual 
aO. 


&03 


3 


ETX 


Hace visible el cursor de texto. Equi- 
vale a la orden CURSOR con el pa- 
rametro (conmutador de usuario) igual 
a 1 . Notese que para visualizar el cur- 
sor desde dentro de un programa de 
BASIC (aparte de la situation en que 
BASIC esta esperando una entrada 
por el teclado) es necesario ejecutar 
una orden CURSOR con el parame- 
tro (conmutador del sistema) igual a 1 . 


&04 


4 


EOT a 2 


Establece el modo de pantalla. El pa- 
rametro se toma MOD 4. Equivale a 
la orden MODE. 


&05 


5 


ENQ a 255 


Envia a la position del cursor grafico 
el caracter correspondiente al valor del 
parametro. 


&06 




ACK 


Habilita la pantalla de texto. (Vease 
&15 NAK.) 


&07 


7 


BEL 


Produce un pitido. Observese que este 
codigo borra las colas de sonido. 


&08 


8 


*BS 


Hace retroceder el cursor una position. 


&09 


9 


*TAB 


Hace avanzar el cursor una position. 
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Valor Nombre Parametro Significado 

&0A 10 *LF Hace bajar el cursor una linea. 

- &0B 1 1 * VT Hace subir el cursor una linea. 

&0C 12 FF Borra la ventana de texto y lleva el cur- 

sor al extremo superior izquierdo. 
Equivale a la orden CLS. 

&0D 13 *CR Lleva el cursor al extremo izquierdo de 

la linea actual. 

&0E 14 SO a 15 Establece la tinta asignada al papel. El 

parametro se toma MOD 16. Equiva- 
le a la orden PAPER. 

&0F 15 SI a 15 Establece la tinta asignada a la pluma. 

El parametro se toma MOD 16. Equi- 
vale a la orden PEN. 

610 16 *DLE Borra el caracter que esta en la posi- 

tion del cursor. Rellena la celula del 
caracter con el color actual del papel. 

61 1 17 *DC1 Borra desde el extremo izquierdo de la 

ventana hasta la posicion actual del 
cursor inclusive. Rellena las celulas 
afectadas con el color actual del papel. 

612 18 *DC2 Borra desde la posicion actual del cur- 

sor inclusive hasta el extremo derecho 
de la ventana. Rellena las celulas afec- 
tadas con el color actual del papel. 

613 19 *DC3 Borra desde el principio de la ventana 

hasta la posicion actual del cursor in- 
clusive. Rellena las celulas afectadas 
con el color actual del papel. 

614 20 *DC4 Borra desde la posicion actual del cur- 

sor inclusive hasta el final de la venta- 
na. Rellena las celulas afectadas con el 
color actual del papel. 
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Valor 




N ombre 


Parametro 


Significado 


&15 


21 


NAK 






Inhibe la pantalla de texto, la cual no 
reacciona ante nada que se le envia 
mientras no reciba el codigo ACK 
(&06 6). 


&16 


22 


SYN 





a 1 


Se toma el parametro MOD 2. Option 
de transparencia: desactiva, 1 activa. 


&17 


23 


ETB 





a3 


Se toma el parametro MOD 4. Esta- 
blece el modo de tinta para graficos: 

normal 

1 XOR 

2 AND 

3 OR 


&18 


24 


CAN 






Intercambia las tintas de pluma y pa- 
pel. 


&19 


25 


EM 





a 255 


Define la matriz de un caracter defini- 











a 255 


ble por el usuario. Equivale a la orden 











a 255 


SYMBOL. Lleva nueve parametros. 











a 255 


El primero es el niimero del caracter; 











a 255 


los ocho restantes, el disefto del carac- 











a 255 


ter. El bit mas significativo del primer 











a 255 


byte corresponde al punto extremo su- 











a 255 


perior izquierdo del caracter. El bit 











a 255 


menos significativo del ultimo byte co- 
rresponde al punto extremo inferior 
derecho del caracter. 


&1A 


26 


SUB 


1 


a 80 


Define una ventana. Los dos primeros 








1 


a 80 


parametros especifican los bordes iz- 








1 


a 80 


quierdo y derecho de la ventana; el me- 








1 


a 80 


nor de ellos se considera definitorio del 
borde izquierdo. Los dos ultimos pa- 
rametros especifican los bordes supe- 
rior e inferior de la ventana; el menor 
de ellos se considera definitorio del 
borde superior. 


&1B 


27 


ESC 






Sin efecto. Se lo ignora. 
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Valor 



Nombre Parametro 



&1C 28 FS 



Oa 15 
0a31 
0a31 



&1D 29 GS 



0a31 
0a31 



&1E 30 


RS 




&1F 31 


US 


1 a 80 
1 a 25 



Significado 

Asigna dos colores a una tinta. Equi- 
vale a la orden UMK. El primer para- 
metro (MOD 16) especifica el numero 
de tinta; los dos siguientes (MOD 32), 
los colores deseados. (Los valores 27 a 
31 no corresponden a colores defi- 
nidos.) 

Asigna dos colores al borde. Equivale 
a la orden BORDER. Los dos para- 
metros (MOD 32) especifican los colo- 
res. (Los valores 27 a 3 1 no correspon- 
den a colores definidos.) 

Lleva el cursor al extremo superior iz- 
quierdo de la ventana. 

Lleva el cursor a la position especifi- 
cada dentro de la ventana actual. Equi- 
vale a la orden LOCATE. El primer 
parametro representa la columna; el 
segundo, la linea. 



La gestion interna del CPC664 es realizada en tiempo real por un sofisticado sistema 
operative El sistema operativo es una especie de 'guardia de trafico' que controla el 
flujo entre entradas y salidas. 

Su funci6n primordial es servir de intermediario (interfaz) entre BASIC y los circuitos 
electronicos. Por ejemplo, cuando el programa exige que parpadeen las tintas, BASIC 
entrega al sistema operativo los parametros y este realiza el trabajo. 

El sistema operativo de la maquina es lo que se suele denominar 'firmware'. Es un pro- 
grama grabado en ROM y comprende las rutinas en codigo de maquina que son in- 
vocadas por las 6rdenes de alto nivel de BASIC. 

Si se siente tentado a modificar el contenido de posiciones de memoria (con la orden 
POKE) o a invocar subrutinas del sistema operativo (con CALL), grabe el programa 
antes de que sea demasiado tarde. 
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El firmware del sistema operativo del CPC664 esta descrito en la publication SOFT 
946 y queda fuera del alcance de este manual. 

Si usted piensa programar en codigo de maquina, debe proveerse de un programa en- 
samblador. El DEVPAC de AMSOFT incluye un ensamblador de Z80 reubicable, con 
editor, desensamblador y monitor. 



Parte 2: Interrupciones 



El CPC664 utiliza ampliamente las interrupciones del Z80 para proporcionar un sis- 
tema operativo que incluye varias caracteristicas multitarea, de las que son ejemplo 
las estructuras AFTER y EVERY descritas en otro lugar de este manual. El orden de 
prioridad de los temporizadores es el siguiente: 

Break ([ESC][ESC]) 

Temporizador 3 

Temporizador 2 (y las tres colas de sonido) 

Temporizador 1 

Temporizador 

Las interrupciones s61o se deben programar despues de considerar las consecuencias 
de los posibles estados intermedios de las variables en el momento de la interrupci6n. 
La subrutina de interruption debe evitar interacciones indeseadas con el estado de las 
variables del programa principal. 

Las colas de sonidos tienen interrupciones independientes, de igual nivel de prioridad. 
Una vez iniciada una interruption de sonido, ya no puede ser interrumpida por otra. 
Este mecanismo permite que las rutinas de interruption de sonido puedan compartir 
variables sin estar sujetas a los riesgos mencionados. 

Cuando se habilita una interruption de cola de sonido (con ON SQ GOSUB), la in- 
terrupci6n se realiza inmediatamente si la cola de sonido del canal correspondiente no 
esta llena; si lo esta, la interruption se producira cuando termine el sonido actual y 
quede espacio libre en la cola. La action de la interruption inhibe el suceso, de modo 
que la subrutina debe ser rehabilitada si se la va a utilizar mas tarde. 

Las acciones de enviar un sonido y de examinar el estado de la cola inhiben la inte- 
rruption de sonido. 
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Parte 3: 

Caracteres ASCII y caracteres graficos 

ASCII 

En la tabla siguiente se da la relation de los codigos y caracteres ASCII. Los niimeros 
estan en decimal, octal y hexadecimal. En las siguientes paginas se ilustra el disefio 
de los caracteres generados por el CPC664. 



DEC OCTAL HEX 


ASCII characters 


DEC OCTAL HEX 


ASCII 


DEC 


OCTAL HEX 


ASCII 





000 


UO 


NUL (|CTRL)A) 


50 


062 


32 


2 


100 


'144 


64 


d 


1 


001 


01 


SOH ((CTRL]B) 


51 


063 


33 


3 


101 


145 


65 


e 


2 


002 


02 


STX ((CTRL]C) 


52 


064 


34 


4 


102 


146 


66 


f 


3 


003 


03 


ETX ([CTRLJC) 


53 


065 


35 


5 


103 


147 


67 


g 


4 


004 


04 


EOTflCTRLID) 


54 


066 


36 


6 


104 


150 


68 


h 


5 


005 


05 


ENQ ([CTRL)E) 


55 


067 


37 


7 


105 


151 


69 


i 


6 


006 


06 


ACK ((CTRLJF) 


56 


070 


38 


8 


106 


152 


6A 


j 


7 


007 


07 


BEL (|CTRL]G) 


57 


071 


39 


9 


107 


153 


6B 


k 


8 


010 


08 


BS (ICTRL)H) 


58 


072 


3A 




108 


154 


6C 


I 


9 


011 


09 


HT([CTRL]I) 


59 


073 


3B 


; 


109 


155 


6D 


m 


10 


012 


OA 


LF (|CTRL|J) 


60 


074 


3C 


< 


110 


156 


6E 


n 


11 


013 


OB 


VT([CTRL]K) 


61 


075 


3D 


= 


111 


157 


6F 





12 


014 


OC 


FF (|CTRL|L) 


62 


076 


3E 


> 


112 


160 


70 


p 


13 


015 


OD 


CR ([CTRL|M) 


63 


077 


3F 


7 


113 


161 


71 


q 


14 


016 


OE 


SO ([CTRL|N) 


64 


100 


40 


(5> 


114 


162 


72 


r 


15 


017 


OF 


SI ([CTRLJO) 


65 


101 


41 


A 


115 


163 


73 


s 


16 


020 


10 


DLE (ICTRL)P) 


66 


102 


42 


B 


116 


164 


74 


t 


17 


021 


11 


DC1 ([CTRL|Q) 


67 


103 


43 


C 


117 


165 


75 


u 


18 


022 


12 


DC2 (|CTRL|R) 


68 


104 


44 


D 


118 


166 


76 


V 


19 


023 


13 


DC3 (ICTRL]S) 


69 


105 


45 


E 


119 


167 


77 


y 


20 


024 


14 


DC4 flCTRLJT) 


70 


106 


46 


F 


120 


170 


78 


X 


21 


025 


15 


NAK (|CTRL]U) 


71 


107 


47 


6 


121 


171 


79 


y 


22 


026 


16 


SYN ([CTRL|V) 


72 


110 


48 


H 


122 


172 


7A 


z 


23 


027 


17 


ETB([CTRL]W) 


73 


111 


49 


I 


123 


173 


7B 


{ 


24 


030 


18 


CAN (|CTRL]X) 


74 


112 


4A 


J 


124 


174 


7C 


i 


25 


031 


19 


EM ([CTRL)Y) 


75 


113 


4B 


K 


125 


175 


7D 


} 


26 


032 


1A 


SUB ([CTRLJ2) 


76 


114 


4C 


L 


126 


176 


7E 




27 


033 


1B 


ESC 


77 


115 


4D 


n 










28 


034 


1C 


FS 


78 


116 


4E 


N 










29 


035 


1D 


GS 


79 


117 


4F 













30 


036 


1E 


RS 


80 


120 


50 


p 










31 


037 


1F 


US 


81 


121 


51 


Q 










32 


040 


20 


SP 


82 


122 


52 


R 










33 


041 


21 


i 


83 


123 


53 


S 










34 


042 


22 


" 


84 


124 


54 


T 










35 


043 


23 


# 


85 


125 


55 


U 










36 


044 


24 


$ 


86 


126 


56 


V 










37 


045 


25 


X 


87 


127 


57 


U 










38 


046 


26 


I 


88 


130 


58 


X 










39 


047 


27 


t 


89 


131 


59 


Y 










40 


050 


28 


( 


90 


132 


5A 


Z 










41 


051 


29 


) 


91 


133 


5B 


[ 










42 


052 


2A 


* 


92 


134 


5C 


\ 










43 


053 


2B 


+ 


93 


135 


5D 


J 










44 


054 


2C 


/ 


94 


136 


5E 


T 










45 


055 


2D 




95 


137 


5F 


- 










46 


056 


2E 




96 


140 


60 












47 


057 


2F 


/ 


97 


141 


61 


a 










48 


060 


30 





98 


142 


62 


b 










49 


061 


31 


1 


99 


143 


63 


c 
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Conjunto de caracteres graficos especifico de 
la maquina 



Los caracteres aqui reproducidos estan representados en la 
matriz estandar de 8 X 8 en la que se basa la visualizaci6n de 
texto en la pantalla del CPC664. Los caracteres definidos 
por el usuario pueden ser agrupados para conseguir efectos 
especiales. Vease la section 'Caracteres definidos por el 
usuario' en el capitulo 'Cuando usted guste ...' 




33 

&H21 
&X001 00001 



■ 



34 

&H22 

&X001 00010 



FSSFS! 

■■■■■ 
'■■■■ 




35 

&H23 
&X001 00011 



32 &H2C 
&X001 00000 



B3! 



^™si 




36 

&H24 

&X00100100 



E 


9 


i: 


m 


5 


I: 



37 

&H25 

&X00100101 






38 

&H26 

&X00100110 




39 

&H27 

&X00100111 



n 



40 

&H28 

&X00101000 




41 

&H29 

&X00101001 






42 

&H2A 

&X00101010 



Si 



■ 



43 

&H2B 

&X00101011 



44 

&H2C 

&X00101100 



45 

&H20 

&X00101101 



46 

&H2E 

&X00101110 



■ 



47 

&H2F 

&X00101111 




48 

&H30 

&X001 10000 
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49 

&H31 
&X001 10001 




50 

&H32 
&X001 10010 




51 

&H33 
&X001 10011 



rixwi 



52 

&H34 

&X001 10100 




53 

&H35 
&X001 10101 



■HiuL_ 

w 




54 

&H36 

&X00110110 




55 

&H37 

&X00110111 




56 

&H38 

&X00111000 



cue 



57 

&H39 
&X001 11001 




58 

&H3A 
&X001 11010 




59 

&H3B 
&X001 11011 



II 



60 

&H3C 

&X00111100 



■■'■■'■M~ 

flfflHF: 



■■■■■■ ~ 

eHBe 



61 

&H3D 

&X00111101 



dBS 



62 

&H3E 

&X00111110 




63 

&H3F 

&X00111111 




64 

&H40 
&X01 000000 



Wi 




65 

&H41 
&X01 000001 




66 

&H42 
&X01 000010 



m 



BMP- 

I I rTTTTi 



67 

&H43 
&X01 000011 



■■uan 

6 



68 

&H44 

&X01000100 
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69 

&H45 

&X01000101 




■8r ~rn 

£1 




70 


71 


72 


&H46 


&H47 


&H48 


&X01000110 


&X01000111 


&X01001000 




73 

&H49 

&X01001001 




74 

&H4A 

&X01001010 



■iX"HJ wT ■§: 
■rr«n ■■■■■■ir 



11111 

75 

&H4B 

&X01001011 




76 

&H4C 

&X01001100 




77 

&H4D 

&X01001101 






78 

&H4E 

&X01001110 




79 

&H4F 

&X01001111 




80 

&H50 

&X01010000 




81 

&H51 

&X01010001 




82 

&H52 

&X01010010 



IIMTM 



I I I I I I I I 

83 

&H53 

&X01010011 




84 

&H54 

&X01010100 




85 

&H55 

&X01010101 




86 

&H56 

&X01010110 




87 

&H57 

&X01010111 



rriiiTi 



88 

&H58 

&X01011000 
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89 

&H59 

&X01011001 



90 

&H5A 

&X01011010 




SSffi 




91 

&H5B 

&X01011011 



92 

&H5C 

&X01011100 





93 

&H5D 

&X01011101 



94 

&H5E 

&X01011110 



Hi 




97 

&H61 
&X01 100001 



98 

&H62 
&X01 100010 



































































































■■■■■■■■ 



■ 



95 

&H5F 

&X01011111 



96 

&H60 
&X01 100000 



1 1 rrrn \ 






99 

&H63 
&X01 100011 



100 

&H64 

&X01100100 



rag 



5w: 




#:i 





101 

&H65 

&X01100101 



102 

&H66 

&X01100110 



103 

&H67 

&X01100111 



104 
&H68 
&X01 101000 




rrrrrrfli 

jitp. 







ffl 




105 


106 


&H69 


&H6A 


&X01101001 


&X01101010 



107 
&H6B 
&X01 101011 



108 

&H6C 

&X01101100 
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109 

&H6D 

&X01101101 






110 

&H6E 

&X01101110 



111 

&H6F 

&X01101111 



112 
&H70 
&X01 110000 



P 

rrrpii 



113 
&H71 
&X01 110001 







i rrrrn i 



\ 1 1 mn i 



114 
&H72 
&X01 110010 



115 
&H73 
&X01 110011 



116 
&H74 
&X01 110100 



_■■: 


-■SI 
-■HI 
_■■" 



117 
&H75 
&X01 110101 








118 

&H76 

&X01110110 



119 

&H77 

&X01110111 



120 

&H78 

&X01111000 




121 
&H79 
&X01 111001 




8 



Hi 



\ UUUUUU I 

iSSKE 




ttbfcfl 





122 

&H7A 

&X01111010 



rmm*~ 



123 

&H7B 

&X01111011 



■ 



124 

&H7C 

&X01111100 



125 
&H7D 
&X01 111101 



126 

&H7E 

&X01111110 



127 

&H7F 

&X01111111 



128 

&H80 

&X10000000 
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129 

&H81 

&X1 0000001 



133 

&H85 

&X10000101 




137 

&H89 

&X1 0001 001 




141 

&H8D 

&X1 0001 101 




145 

&H91 

&X1 001 0001 



m ii 



130 

&H82 

&X1 0000010 



■ ■ 



134 

&H86 

&X1 00001 10 




138 

&H8A 

&X10001010 




142 

&H8E 

&X10001110 




146 

&H92 

&X10010010 



131 

&H83 

&X1 0000011 




135 

&H87 

&X10000111 




139 

&H8B 

&X1 0001 011 




143 

&H8F 

&X10001111 




147 

&H93 

&X1 001 0011 




132 

&H84 

&X10000100 



— Bil 

~ — Si 



136 

&H88 

&X1 0001 000 




140 

&H8C 

&X10001100 



ii 



144 

&H90 

&X1 001 0000 




148 

&H94 

&X10010100 
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149 

&H95 

&X10010101 




150 

&H96 

&X10010110 




151 

&H97 

&X10010111 



■■■■■■■■ 

Ffffffki 



152 

&H98 

&X10011000 




153 

&H99 

&X1 001 1001 



I I I I I I I I 


I I I I I I I I 


!■■■■■■■■ 


I I I I I I I I 


I I I I I I I I 



154 

&H9A 

&X10011010 




155 

&H9B 

&X1 001 1011 





156 

&H9C 

&X10011100 




157 

&H9D 

&X10011101 




158 

&H9E 

&X10011110 




159 

&H9F 

&X10011111 




m 



160 

&HA0 

&X1 01 00000 



■ 



161 

&HA1 

&X10100001 



162 

&HA2 

&X1 01 00010 




163 

&HA3 

&X1 01 00011 




164 

&HA4 

&X10100100 



r*HH 
W5- 











165 

&HA5 

&X10100101 



friFII 



166 

&HA6 

&X10100110 



167 
&HA7 
&X101 00111 




168 

&HA8 

&X10101000 



Para su referencia .. 



7/15 




169 

&HA9 

&X10101001 




170 

&HAA 

&X10101010 



■ 

i rrrrrn 



171 

&HAB 

&X10101011 




172 

&HAC 

&X10101100 



6 






173 

&HAD 

&X10101101 



ftffl 



m 



174 

&HAE 

&X10101110 




175 

&HAF 

&X10101111 




176 

&HB0 

&X1 01 10000 




Iffl 




177 
&HB1 
&X101 10001 




178 

&HB2 

&X1 01 10010 




179 

&HB3 

&X10110011 



m 



180 

&HB4 

&X10110100 




181 

&HB5 

&X10110101 






182 

&HB6 

&X10110110 



:S^S 



m 



183 

&HB7 

&X10110111 




184 
&HB8 
&X101 11000 



1 



is 



185 

&HB9 

&X10111001 



WE 



186 

&HBA 

&X10111010 




187 

&HBB 

&X10111011 




188 

&HBC 

&X10111100 
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■ ■■■■B r 

mnnnn 




■Pf 


W-ff 





■ 



189 

&HBD 

&X10111101 



190 

&HBE 

&X10111110 



191 

&HBF 

&X10111111 



192 

&HC0 

&X1 1000000 



■ I 



FFWJ-H- 



BSS 




■■■■I 



193 

&HC1 

&X1 1000001 



194 

&HC2 

&X1 1000010 



195 

&HC3 

&X1 1000011 



196 

&HC4 

&X1 10001 00 





m 



gas 




197 

&HC5 

&X1 10001 01 



198 

&HC6 

&X1 10001 10 



199 

&HC7 

&X1 10001 11 



200 

&HC8 

&X1 1001 000 



H 



3ragf 



isms 



■■TT.J U □"■■■■TI 



■ 



201 

&HC9 

&X1 1001001 



202 

&HCA 

&X11001010 



203 

&HCB 

&X1 1001 011 



204 

&HCC 

&X1 1001 100 



83 



mg 



sa 





205 
&HCD 
&X1 1001 101 



206 

&HCE 

&X11001110 



207 

&HCF 

&X11001111 



208 

&HD0 

&X1 1010000 
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Si 



209 

&HD1 

&X1 1010001 



■■■■■■■■ 
■■■■■■■■ 



■ 




210 

&HD2 

&X11010010 



211 

&HD3 

&X1 1010011 



212 

&HD4 

&X11010100 



i 



a 



213 

&HD5 

&X11010101 



S 



■■■I 

!■■■■ 



■ 



214 

&HD6 

&X11010110 



215 

&HD7 

&X11010111 



216 

&HD8 

&X1 101 1000 




217 

&HD9 

&X1 101 1001 






218 

&HDA 

&X11011010 



219 

&HDB 

&X1 101 1011 



220 

&HDC 

&X11011100 






"■■■■■_ 

IfTTTB 



221 

&HDD 

&X11011101 



222 

&HDE 

&X11011110 



223 

&HDF 

&X11011111 



224 

&HE0 

&X1 11 00000 



mm 

IHUUM 

Sriiiri 
■■■■■■u 

225 
&HE1 
&X1 11 00001 




SB 




226 

&HE2 

&X1 1100010 



227 

&HE3 

&X1 11 00011 



228 

&HE4 

&X11100100 
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ITT T ' ' '-L 


-MP 
mwr 

_■■: 

-■Si 


■■9- 

_■■: 
_■■: 

-■HI 



229 

&HE5 

&X11100101 



230 

&HE6 

&X11100110 



231 

&HE7 

&X1 11001 11 



232 

&HE8 

&X11101000 




El 



M 




■■■ 
XI" 




233 

&HE9 

&X11101001 



234 

&HEA 

&X11101010 



235 

&HEB 

&X11101011 



236 

&HEC 

&X11101100 



■■■I 

*■■■■ 



P 



terse 



t^SSR: 

■■■■■■ 

Hi 



237 

&HED 

&X11101101 



238 

&HEE 

&X11101110 



239 

&HEF 

&X11101111 



240 

&HF0 

&X1 11 10000 



em m 



ITT ■■■■■■■■ ■■■■■■■■ 

ms tal raS 







TTT 




■ 


■ 
■ 


■■■■ 
■■■■ 
■■■■ 

JLjff 


■I 



241 

&HF1 

&X1 11 10001 



242 

&HF2 

&X11110010 



243 

&HF3 

&X1 11 10011 



244 

&HF4 

&X11110100 





H 



Mil! 





245 

&HF5 

&X11110101 



246 

&HF6 

&X11110110 



247 

&HF7 

&X11110111 



248 

&HF8 

&X11111000 
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TT 



ESP 



mm 



249 

&HF9 

&X11111001 



HI 



250 

&HFA 

&X11111010 






251 

&HFB 

&X11111011 



252 

&HFC 

&X11111100 



SB 



253 


254 


255 


&HFD 


&HFE 


&HFF 


&X11111101 


&X11111110 


&X11111111 
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Parte 4: Esquemas del teclado 



Valores ASCII implicitos 






O) 




(O 



0[I] 

BBSS 



8§§ 



i5i* 



PRn 



§«$ 



B 



fcW! 



588 



CXXJ 



SWi 



8SS 



53 



2»3 



[I] 






y 

i 



V 

y 

h- 

















Q-<o<o<o 

5 






W CO 


W CO 




CN 
5 










www 











0)0) 
OO 
















<2l0iO 
Q 




OQOQ 
OO 


OO 


CN 
Q-00 00 

22 io to 

Q 


















00 00 
OO 
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V 
























\t/ 




rt S2C 




Son 


-«-,-. 




OOKJ> 


I2i2i3 




























IOOM 




nor 
r>or 




ooo 

nor 










> 
5 


— 


COCOOO 

ooo 


/ 
























/ 1 \ 




inm«r 

nor 




nor 




fS»CK> 




COCDOC 
CMNC* 




' 

























Codigos expansibles: 
posiciones y valores 
implicitos 



B 



B 
HI 



rr 

UJ 



z 

UJ 



a°Qffl 



B 



B 

B 



B 
B 
B 
B 
B 



B 

B 



B 



H 



B 



St" 



B 
B 



CO 



B 
B 



fS! 



Codigo 
expansible 


Asignacion implicita 


Caracter 


Valor ASCII 


0(128) 

1(129) 

2(130) 

3(131) 

4(132) 

5(133) 

6(134) 

7(135) 

8(1 36) 

9(137) 

10(138) 

11(139) 

12(140) 



1 
2 
3 
4 
5 
6 
7 
8 
9 

[ENTER] 
RUN"[ENTER] 


&30 
&3I 
&32 
&33 
&34 
&35 
&36 
&37 
&38 
&39 
&2E 
&0D 
&52&55&4E&22&01) 


Nota: Los caracteres expansibles 13 a 31 (141 a 159) no tienen 
asignada ninguna cadena de expansi6n. Su expansi6n se puede de- 
finir con la orden KEY de BASIC, y se los puede asignar a teclas 
concretas con la orden KET DEF. 
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Numeros de las teclas y los joysticks 



o 


- 


CM 


en 


00 



0000 
0000 
0000 



en 
r~ 






00 






CM 








(O 


















en 








r~ 








CM 










CM 










00 
CM 










CM 






in 

CM 










O 
ro 










on 

CM 








r~ 

CM 








CM 

ro 










ro 










to 
ro 








ro 








ro 
ro 










m 
ro 










ro 








in 
ro 








O 










00 

ro 










in 








CM 








5 










to 










t 

«• 








ro 








CO 










t 










CM 

in 




i 






in 








0) 










in 










ro 
in 




i 






s 












CM 

to 


to 
in 


















to 








00 

in 








r~ 

in 










2 










8 








m 
in 








in 










r~ 










on 
to 








r~ 
to 


















CM 










o 
r~ 






s 













y 

i- 

> 

o 



y 

i- 
(/) 



00 



CM 



in 



,- 




Q. 


CO 


cyj 


in 


Q 




CM 




Q. 


CM 


V) 


in 


Q 





o 
m 



in 



,- 




Q. 


r- 


V) 


r- 


Q 






CM 




Q. 


(D 


V) 


r- 


Q 





ft 






CO 
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Parte 5: Sonidos 

Notas y periodos de tono 

La tabla siguiente da los valores recomendados para el parametro (periodo de tono> 
correspondientes a los tonos y semitonos de las ocho escalas musicales que puede pro- 
ducir el CPC664. 

Las frecuencias generadas no coinciden exactamente con las requeridas porque el <pe- 
riodo de tono> tiene que ser un numero entero. El 'error relativo' es el cociente: 

frceuencia requerida-frecuencia generada 



frecuencia requerida 



expresado en porcentaje. 



NOTA 


FRECUENCIA 


PERIODO 


ERROR RELATIVO 




C DO 


32.7.03 


3822 


-0.007% 




Ctt DO** 


34.648 


3608 


+0.007% 




D RE 


36.708 


3405 


-0 . 007% 




D# RE** 


38.891 


3214 


-0.004% 




E MI 


41.203 


3034 


+0.009% 




F FA 


43.654 


2863 


-0.016% 




Ft* FA*t 


46.249 


2703 


+0.009% Octava 


-3 


G SOL 


48.999 


2551 


-0.002% 




G** SOL** 


51.913 


2408 


+0.005% 




A LA 


55 . 000 


2273 


+0.012% 




At* LA*t 


58.270 


2145 


-0 . 008% 




B SI 


61.735 


2025 


+0.011% 




NOTA 


FRECUENCIA 


PERIODO 


ERROR RELATIVO 




C DO 


65.406 


1911 


-0.007% 




C** DO** 


69.296 


1804 


+0.007% 




D RE 


73.416 


1703 


+0.022% 




D*t RE** 


77.782 


1607 


-0.004% 




E MI 


82.407 


1517 


+0.009% 




F FA 


87.307 


1432 


+0.019% 




F*t FA** 


92.499 


1351 


-0.028% Octava ■ 


-2 


G SOL 


97.999 


1276 


+0.037% 




G*t SOL** 


103.826 


1204 


+0.005% 




A LA 


110.000 


1136 


-0.032% 




A** LA** 


116.541 


1073 


+0.039% 




B SI 


123.471 


1012 


-0.038% 
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NOTA 



FRECUENCIA PERIODO ERROR RELATIVO 



c 


DO 


130 


813 


C** 


DO** 


138. 


591 


D 


RE 


146 


832 


D** 


RE** 


155. 


564 


E 


MI 


164 


814 


F 


FA 


174. 


614 


F** 


FA** 


184. 


997 


G 


SOL 


195. 


998 


G** 


SOL** 


207. 


652 


A 


LA 


220. 


000 


A** 


LA** 


233. 


082 


B 


SI 


246. 


942 



956 


+0.046% 


902 


+0.007% 


851 


-0.037% 


804 


+0.058% 


758 


-0.057% 


716 


+0.019% 


676 


+0.046% Octava 


638 


+0.037% 


602 


+0.005% 


568 


-0.032% 


536 


-0.055% 


506 


-0.038% 



NOTA 



FRECUENCIA PERIODO ERROR RELATIVO 



c 


DO 


261 


.626 


c** 


DO** 


277 


183 


D 


RE 


293 


665 


D** 


RE** 


311 


127 


E 


MI 


329 


628 


F 


FA 


349. 


228 


F** 


FA** 


369 


994 


6 


SOL 


391. 


995 


6** 


SOL** 


415. 


305 


A 


LA 


440. 


000 


A** 


LA** 


466. 


164 


B 


SI 


493. 


883 



478 


+0.046% 


DO media 


451 


+0.007% 




426 


+0.081% 




402 


+0.058% 




379 


-0.057% 




358 


+0.019% 




338 


+0.046% 


Octava 


319 


+0.037% 




301 


+0.005% 




284 


-0.032% 


LA inter 


268 


-0.055% 




253 


-0.038% 





NOTA 



FRECUENCIA PERIODO ERROR RELATIVO 



c 


DO 


523 


251 


c** 


DO** 


554. 


365 


D 


RE 


587 


330 


D*» 


RE** 


622. 


254 


E 


MI 


659 


255 


F 


FA 


698. 


457 


F*t 


FA** 


739. 


989 


G 


SOL 


783. 


991 


G*» 


SOL** 


830. 


609 


A 


LA 


880. 


000 


A** 


LA** 


932. 


328 


B 


SI 


987. 


767 



239 


+0.046% 


225 


-0.215% 


213 


+0.081% 


201 


+0.058% 


190 


+0 . 206% 


179 


+0.019% 


169 


+0.046% Octava 1 


159 


-0.277% 


150 


-0.328% 


142 


-0.032% 


134 


-0.055% 


127 


+0.356% 
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NOTA 


FRECUENCIA 


PERIODO 


ERROR RELATIVO 




C DO 


1046.502 


119 


-0.374% 




Ctt DOtt 


110S.731 


113 


+0.229% 




D RE 


1174.659 


106 


-0.390% 




Dtt REtt 


1244. 508 


100 


-0.441% 




E MI 


1318.510 


95 


+0.206% 




F FA 


1396.913 


39 


-0.543% 




Ftt FAtt 


i4/y. ?/8 


84 


-0.548% Octava 


2 


G SOL 


1567.982 


80 


+0.350% 




Gtt SOLtt 


1661.219 


75 


-0.328% 




A LA 


1760.000 


71 


-0.032% 




At* LAtt 


1864.655 


67 


-0.055% 




B SI 


1975.533 


63 


-0.435% 




NOTA 


FRECUENCIA 


PERIODO 


ERROR RELATIVO 




C DO 


2093.004 


60 


+0.462% 




Ctt DOtt 


2217.461 


56 


-0.662% 




D RE 


2349.318 


53 


-0.390% 




Dtt REtt 


2489.016 


50 


-0.441% 




E MI 


2637.021 


47 


-0.855% 




F FA 


2793.826 


45 


+0.574% 




Ftt FAtt 


2959.955 


42 


-0.548% Octava 


3 


G SOL 


3135.963 


40 


+0.450% 




Gtt SOLtt 


3322.438 


38 


+0.992% 




A LA 


3520.000 


36 


+1.357% 




At* LAtt 


3729.310 


34 


+1.417% 




B SI 


3951.066 


32 


+1. 134% 




NOTA 


FRECUENCIA 


PERIODO 


ERROR RELATIVO 




C DO 


4186.009 


30 


+0.462% 




Ctt DOtt 


4434.922 


28 


-0.662% 




D RE 


4698.636 


27 


+1.469% 




DM REtt 


4978.032 


25 


-0.441% 




E MI 


5274.041 


24 


+1.246% 




F FA 


5587.652 


22 


-1.685% 




Ftt FAtt 


5919.911 


21 


-0.548% Octava 


4 


G SOL 


6271.927 


20 


+0.350% 




Gtt SOLtt 


6644.875 


19 


+0.992% 




A LA 


7040.000 


18 


+1.357% 




Att LAtt 


7458.621 


17 


+1.417% 




B SI 


7902. 133 


16 


+1. 134% 
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Estas frecuencias han sido calculadas a partir de la correspondiente a la nota LA in- 
ternacional mediante la siguiente formula: 

FRECUENCIA=440*(2t (OCTAVA+( (N-10)/12) ) ) 
PERIODO=ROUND(125000/FRECUENCIA) 

donde N es 1 para DO, 2 para DO#, etc. 



Parte 6: Mensajes de error 



1 Unexpected NEXT 

Se ha encontrado un NEXT que no corresponde a ningiin FOR, o bien la variable 
mencionada tras NEXT no coincide con la de FOR. 

2 Syntax error 

BASIC no puede entender la linea porque algo en ella no se ajusta a las reglas de sin- 
taxis del lenguaje. 

3 Unexpected RETURN 

Se ha encontrado una orden RETURN fuera de una subrutina. 

4 DATA exhausted 

Una orden READ ha intentado leer mas datos de los incluidos en lineas DATA. 

5 Improper argument 

Este es un error no especifico. Puede haber algo incorrecto en el argumento de una 
funcion o en un parametro de una orden. 

6 Overflow 

El resultado de una operation aritmetica ha sobrepasado los margenes aceptables. Si 
ha ocurrido en un niimero en punto flotante, el resultado ha sido mayor que 1.7E+38 
(aprox.). Tambien puede haber ocurrido al intentar convertir un numero en punto flo- 
tante en un entero de 16 bits. 
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7 Memory -full 

El programa actual o sus variables ocupan demasiado espacio en la memoria, el ani- 
damiento de la estructura de control es demasiado profundo (demasiadas ordenes GO- 
SUB, WHILE o FOR anidadas). 

La orden MEMORY provoca este error si se intenta situar el limite de la memoria 
accesible a BASIC demasiado bajo, o tan alto que sea imposible. Observese que los 
ficheros abiertos tienen un tampon dedicado a ellos, lo que puede restringir los valo- 
res correctos de MEMORY. 

8 Line does not exist 

Se ha mencionado un niimero de linea que no existe en el programa. 

9 Subscript out o-f range 

Uno de los subindices mencionados en una lista es demasiado pequefio o demasiado 
grande. 

10 Array already dimensioned 

Una de las listas declaradas en una orden DIM ya ha sido dimensionada antes. 

11 Division by zero 

Division por cero, que puede ocurrir en la division de mimeros reales, en la division 
entera, en la operation MOD y en la exponentiation. 

12 Invalid direct command 

Se ha intentado dar como orden directa una orden que solo es valida si va precedida 
de un niimero de linea. 

13 Type mismatch 

Incongruencia de tipos. Un dato es literal cuando tenia que ser numerico, o viceversa, 
o se ha introducido un dato no numerico en READ o INPUT. 

14 String space -full 

Se han creado demasiadas cadenas literales y ya no hay espacio disponible para mas, 
incluso despues de reorganizar la memoria. 



7/28 Para su referenda .. 



15 String too long 

Una cadena literal consta de mas de 255 caracteres. Puede haber sido generada por 
concatenation de otras. 

16 String expression too complex 

Expresion literal demasiado compleja. Las expresiones literales pueden generar valo- 
res intermedios; cuando el niimero de estos valores excede de un limite razonable, se 
produce este error. 

17 Cannot CONTinue 

No se puede reanudar la ejecucion del programa con CO NT. Observese que CO NT 
reanuda el programa despues de una instruction STOP, de [ESC][ESC] o de un 
error, pero a condition de que no se modifique el programa durante la pausa. 

IS Unknown user function 

Se ha invocado una FN sin la correspondiente DEF FN. 

19 RESUME missing 

Se ha llegado al final del programa mientras se ejecutaba una rutina de gestion de erro- 
res (esto es, una rutina invocada por ON ERROR GOTO). 

20 Unexpected RESUME 

RESUME solo es valida en una rutina de gestion de errores (esto es, en una rutina 
invocada por ON ERROR GOTO). 

21 Direct command -found 

Al cargar un fichero se ha encontrado una linea sin numero de linea. 

22 Operand missing 

BASIC ha encontrado una expresion incompleta. 

23 Line too long 

BASIC ha convertido a su forma interna una linea y esta ha resultado ser demasiado 
larga. 
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24 EOF met 

Se ha intentado leer mas alia del final del fichero de entrada. 

25 File type error- 
El fichero que se ha leido no es del tipo adecuado. OPENIN s61o puede abrir ficheros 
de texto ASCII. Analogamente, LOAD, RUN, etc. solamente pueden acceder a fiche- 
ros creados por SAVE. 

26 NEXT missing 

BASIC ha encontrado un FOR al que no corresponde ningun NEXT. La linea men- 
cionada tras el mensaje es aquella en la que se encuentra el FOR. 

27 File already open 

Se ha ejecutado una orden OPENIN u OPENOUT sin previamente cerrar el fichero 
que estaba abierto. 

28 Unknown command 

BASIC no encuentra un comarido externo que corresponda a lo que se ha escrito tras |. 

29 WEND missing 

BASIC ha encontrado un WHILE al que no corresponde ningun WEND. 

30 Unexpected WEND 

Se ha encontrado un WEND que no corresponde a ningun WHILE, o bien el WEND 
no concuerda con el WHILE del bucle actual. 

31 File not open 
Vease la section 'Errores de disco'. 

32 Broken in 

Vease la section 'Errores de disco'. 
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Errores de disco 

Hay varios errores que pueden producirse durante el manejo de ficheros en disco. BA- 
SIC da a todos ellos el numero de ERR 32; no obstante, DERR contiene informa- 
tion mas especifica cuando se detecta ese numero de error. Los valores de DERR tie- 
nen el siguiente significado: 



Error de 


Valor de 




AMSDOS 


DERR 


Causa del error 





0o22 


Se hapulsado [ESC]. 


14 


142 (128+14) 


El canal no se encuentra en situation 
correcta. 


15 


143 (128+15) 


Se ha alcanzado el final fisico del fichero. 


16 


144 (128+16) 


Orden incorrecta: generalmente nombre 
de fichero incorrecto. 


17 


145 (128+17) 


El fichero ya existe. 


18 


146 (128+18) 


El fichero no existe. 


19 


147 (128+19) 


El directorio esta lleno. 


20 


148 (128+20) 


El disco esta lleno. 


21 


149 (128+21) 


Se ha cambiado el disco cuando habia fi- 
cheros abiertos en el. 


22 


150 (128+22) 


El fichero es de 'solo lectura'. 


26 


154 (128+26) 


Se ha llegado al final de los datos graba- 
dos en el fichero. 



Si AMSDOS ya ha informado de un error, el bit 7 de DERR esta a 1 y por lo tanto 
todos los valores de DERR estan desplazados en 128 unidades. 

Otros valores generados por DERR proceden el controlador del disco. Su significado 
se analiza bit a bit. El bit 6 siempre esta a 1. El bit 7 indica si AMSDOS ha infor- 
mado del error (segun se ha explicado antes). El significado de los bits es el siguiente: 



Bit 


Significado 





Falta marca de direction. 


1 


No escribible. El disco esta protegido. 


2 


Faltan datos. No se puede encontrar el sector. 


3 


No hay disco en la unidad. 


4 


Perdida de information por extralimitacion. 


5 


Error de datos. Error CRC. 


6 


Siempre a 1 , para indicar que es un error detectado por el contro- 




lador del disco. 


7 


A 1 si AMSDOS ya ha informado del error. 
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ERR tambien puede dar el valor 31 si se ha intentado el acceso sin haber ningiin fi- 
chero abierto. La forma recomendable de utilizar ERR y DERR consiste en incluir 
una instruction ON ERROR GOTO que invoque una pequefia subrutina, que com- 
pruebe si ERR es 31 o 32; si es 32, se puede examinar DERR para obtener mayor 
information sobre la naturaleza del error. Por ejemplo: 

10 ON ERROR GOTO 1000 

20 OPENOUT "i ichero.asc" 

30 WRITE #9, "prueba-datos" 

40 CLOSEOUT 

50 END 

1000 err amsdos= (DERR AND 8c7F) : REM mascara para bit 7 

1010 IF ERR<31 THEN END 

1020 IF ERR=31 THEN PRINT "Esta segura de que ha tecleado 

la linea 20 correctamente?" : END 
1030 IF erramsdo5=20 THEN PRINT "Disco lleno; ponga otro 

disco de datos.":END 
1040 IF er-ramsdos=8 c X01001000 THEN PRINT " Inserte un disco 

en la unidad y luego pulse una tec la. ": WHILE INKEY*= 

WEND: RESUME 

1050 END 



Parte 7: Palabras reservadas de BASIC 



A continuation damos la lista de las palabras reservadas para el BASIC de AMS- 
TRAD, las cuales, por consiguiente, no pueden ser utilizadas como nombres de 
variables. 

ANS, AFTER, AND, ASC, ATN, AUTO 

BIN*, BORDER 

CALL, CAT, CHAIN, CHR*, CINT, CLEAR, CLG, CLOSEIN, 
CLOSEOUT, CLS, CONT, COPYCHR*, COS, CREAL, CURSOR 

DATA, DEC*, DEF, DEFINT, DEFREAL, DEFSTR, DEG, DELETE, 
DERR, DI, DIM, DRAW, DRAWR 

EDIT, EI, ELSE, END, ENT, ENV, EOF, ERASE, ERL, ERR, 
ERROR, EVERY, EXP 

FILL, FIX, FN, FRAME, FRE 
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GOSUB, GOTO, GRAFHICS 

HEX*, HIMEM 

IF, INK, INKEY, INKEY*, INP, INPUT, INSTR, INT 

JOY 

KEY 

LEFT*, LEN, LET, LINE, LIST, LOAD, LOCATE, LOG, LOG10, 
LOWER* 

MASK, MAX, MEMORY, MERGE, MID*, MIN, MOD, MODE, MOVE, 
MOVER 

NEXT, NEW, NOT 

ON, ON BREAK, ON ERROR GOTO 0, ON SQ, OPENIN, OPENOUT, 
OR, ORIGIN 

PAPER, PEEK, FEN, PI, PLOT, PLOTR, POKE, POS, PRINT 

RAD, RAMDOMIZE, READ, RELEASE, REM, REMAIN, RENUM, 
RESTORE, RESUME, RETURN, RIGHT*, RND, ROUND, RUN 

SAVE, SGN, SIN, SOUND, SPACE*, SPC, SPEED, SQ, SQR, STEP, 
STOP, STR*, STRING*, SWAP, SYMBOL 

TAB, TAG, TAGOFF, TAN, TEST, TE5TR, THEN, TIME, TO, 
TROFF, TRON 

UNT, UPPER*, USING 

VAL, VPOS 

WAIT, WEND, WHILE, WIDTH, WINDOW, WRITE 

XOR, XPOS 

YPOS 

ZONE 
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Parte 8: Plantillas 

Pantalla de texto; modo (20 columnas) 


s 


s 


2 


01 


= 




t 


t 


9 


I© 


£ 


s 


J 


I 


C 
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~ 


a 
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2 


2 


o, 


„ 


- 


- 


- 


- 


«, 


- 


, 


«. 


• 


« 
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„ 


- 


- 


1 


H 
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Pantalla de texto; modo 1 (40 columnas) 
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Pantalla de texto; modo 2 (80 columnas) 



f! 

S 
IS 

2 

10 

s 

3! 

S 

s 

o 

3 

ID 

O 
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16 
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Envolventes de sonido/miisica 
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Parte 9: Conexiones 



Zocalos de entradas y salidas del CPC664 



5VCC 




rfliTm i f i MIffl ffffl'nfT? 



I -1 " h*\i...ii i H" 






SEGUNDA UNIDAD DISCO 



* I 



IMPRESORA 



MONITOR^ 12V CC EXPANSION 



rtoi 1^1 @T) 



t 



CINTA 



t 



ESTEREO 



JOYSTICK 



Zocalo del joystick 



VISTO POR OETRAS 



r~r 







2 3 4 5 



) 



[ • • • m 

V 6 7 8 9 







Patilla 1 ARRIBA 




Patilla 6 OISP. 2 


Patilla 2 ABAJO 


Patilla 7 DISP 1 


Patilla 3 IZQUIEROA 


Patilla 8 MASA 1 


Patilla 4 DERECHA 


Patilla 9 MASA 2 


Patilla 5 N/C 
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Zocalo del monitor 



VISTO POR DETHAS 




5 1 

6 
4 . 2 



Patilla 1 ROJO 
Patilla 2 VERDE 
Patilla 3 AZUL 



Patilla 4 SINC 
Patilla 5 MASA 
Patilla 6 LUM 



Zocalo de cinta 



VISTO POR DETRAS 




3 1 

5 4 

2 



Patilla 1 


CONTROL REMOTO ! Patilla 4 ENTRADA DE DATOS ] 


Patilla 2 


MASA Patilla 5 SALIDA DE DATOS , 


Patilla 3 


CONTROL REMOTO I 



Zocalo estereo 



C 



1X3 



A_ 



MASA IZQUIERDO 



Patilla 1 CANAL IZQUIERDO 
Patilla 2 CANAL DERECHO 
Patilla 3 MASA 



- IZQUIERDO 

- DERECHO 
-MASA 
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Zocalo de expansion 



VISTO POR DETRAS 

49 47 45 43 41 39 37 35 33 31 29 27 25 23 21 19 1 7 15 13 1 1 9 7 5 3 1 



^ 



50 48 46 44 42 40 38 36 34 32 30 28 26 24 22 20 18 16 14 12 10 



6 4 2 



Patilla 


1 


SOUND 


Patilla 


18 


AO 


Patilla 


35 


INT 


Patilla 


2 


GND 


Patilla 


19 


D7 


Patilla 


36 


NTO 


Patilla 


3 


A15 


Patilla 


20 


D6 


Patilla 


37 


BUSR2 


Patilla 


4 


A14 


Patilla 


21 


D5 


Patilla 


38 


BUSAK 


Patilla 


5 


A13 


Patilla 


22 


D4 


Patilla 


39 


READY 


Patilla 


6 


A12 


Patilla 


23 


D3 


Patilla 


40 


BUS RESET 


Patilla 


7 


A11 


Patilla 


24 


D2 


Patilla 


41 


RESET 


Patilla 


8 


A10 


Patilla 


25 


D1 


Patilla 


42 


ROMEN 


Patilla 


9 


A9 


Patilla 


26 


DO 


Patilla 


43 


ROMDIS 


Patilla 


10 


A8 


Patilla 


27 


+5v 


Patilla 


44 


RAMRD 


Patilla 


11 


A7 


Patilla 


28 


MREQ 


Patilla 


45 


RAMDIS 


Patilla 


12 


A6 


Patilla 


29 


M1 


Patilla 


46 


CURSOR 


Patilla 


13 


A5 


Patilla 


30 


RFSH 


Patilla 


47 


L. PEN 


Patilla 


14 


A4 


Patilla 


31 


IORQ 


Patilla 


48 


EXP 


Patilla 


15 


A3 


Patilla 


32 


RD 


Patilla 


49 


GND 


Patilla 


16 


A2 


Patilla 


33 


WR 


Patilla 


50 




Patilla 


17 


A1 


Patilla 


34 


HALT 









Zocalo para la segunda unidad de disco 

VISTO POR DETRAS 
2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 

l Z3ZZZZZZZZZZZZZZZ 

1 3 5 7 9 11 13 15 17 19 21 23 25 27 29 31 33 



Patilla 


1 




Patilla 


18 


GND 


READY 


Patilla 


2 


GND 


Patilla 


19 


MOTOR ON 


Patilla 


3 


SIDE 1 SELECT 


Patilla 


20 


GND 


Patilla 


4 


GND 


Patilla 


21 


N/C 


Patilla 


5 


READ DATA 


Patilla 


22 


GND 


Patilla 


6 


GND 


Patilla 


23 


DRIVE SELECT 1 


Patilla 


7 


WRITE PROTECT 


Patilla 


24 


GND 


Patilla 


8 


GND 


Patilla 


25 


N/C 


Patilla 


9 


TRACK 


Patilla 


26 


GND 


Patilla 


10 


GND 


Patilla 


27 


INDEX 


Patilla 


11 


WRITE GATE 


Patilla 


28 


GND 


Patilla 


12 


GND 


Patilla 


29 


N/C 


Patilla 


13 


WRITE DATA 


Patilla 


30 


GND 


Patilla 


14 


GND 


Patilla 


31 


N/C 


Patilla 


15 


STEP 


Patilla 


32 


GND 


Patilla 


16 


GND 


Patilla 


33 


N/C 


Patilla 


17 


DIRECTION SELECT 


Patilla 


34 


GND 
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Zocalo para la impresora 



VISTO POR DETRAS 



17 16 15 14 13 12 11 10 9 



7 6 5 4 3 2 1 



c: 



35 34 33 32 31 30 29 28 27 26 25 24 23 22 21 20 19 



Patilla 


1 




Patilla 19 GND 


STROBE 


Patilla 


2 


DO 


Patilla 20 GND 


Patilla 


3 


D1 


Patilla 21 GND 


Patilla 


4 


D2 


Patilla 22 GND 


Patilla 


5 


D3 


Patilla 23 GND 


Patilla 


6 


D4 


Patilla 24 GND 


Patilla 


7 


D5 


Patilla 25 GND 


Patilla 


8 


D6 


Patilla 26 GND 


Patilla 


9 


GND 


Patilla 27 GND 


Patilla 


11 


BUSY 


Patilla 28 GND 


Patilla 


14 


GND 


Patilla 33 GND 


Patilla 


16 


GND 


Todas las dem^s: NC 



Parte 10: Impresoras 



Interfaz 

Al CPC664 se le puede conectar cualquier impresora que tenga 'interfaz tipo 
Centronics'. 

El cable es facil de construir, pues no tiene que realizar mas que una conexion biu- 
nivoca entre el zocalo PRINTER del ordenador y el conector de la impresora. Notese 
que en la salida del ordenador hay dos terminales menos que en el conector de la im- 
presora, con objeto de permitir la utilization de un conector estandar para circuito 
impreso. 

Los detalles del interfaz estan ilustrados en la parte 9 de este capitulo. 

El cable debe conectar el terminal 1 del ordenador con el 1 de la impresora, el 19 del 
ordenador con el 19 de la impresora, etc' Sin embargo, los terminales 18 y 36 de la 
impresora no deben ser conectados al ordenador. Observese que aunque los terminales 
de la fila superior del zocalo PRINTER del ordenador estan numerados del 1 al 17, 
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la numeration de la fila inferior empieza en el 19, no en el 18, para mantener la co- 
rrespondencia con el conector de la impresora. 

El ordenador utiliza la serial BUSY (patilla 1 1) para sincronizar con la impresora y 
espera cuando esta esta en OFF-LINE (fuera de linea). 

No es necesario enviar a la impresora codigos de preparation; la salida del ordenador 
se dirige a la impresora especificando el canal #8. 

La salida PRINTER esta disefiada para conectar impresoras de matriz de puntos de 
bajo costo. No obstante, con el interfaz adecuado, se le pueden conectar impresoras 
de margarita, plotters e impresoras de color. La compatibilidad esta asegurada por el 
interfaz paralelo. 

La programacion incorporada a la impresora AMSTRAD DMP1 facilita el funcio- 
namiento en modo grafico asi como los volcados de pantalla. 



Configuration de la impresora 

Se ha incluido una funcion que permite que los caracteres que aparecen en la pantalla 
y pueden ser generados por la AMSTRAD DMP1 se escriban en el papel tal como 
se los ve en la pantalla, aun cuando los codigos que tienen en el ordenador no coin- 
cidan con los que tienen en la impresora. La mayor parte de estos signos solo esta 
disponible cuando en la impresora se ha seleccionado un idioma distinto del ingles. 
Por ejemplo: 

Esto ocurre asi a pesar de que el codigo del acento circunflejo en la impresora es &5E. 
Dicho de otra forma, la programacion de la impresora ha reconocido el &A0 como 
uno de los codigos que tiene en su tabla de traduction y lo ha convertido en &5E 
para escribirlo con la misma forma que en la pantalla. El codigo &5E produce el acen- 
to circunflejo cualquiera que sea el idioma seleccionado (no se puede decir lo mismo 
de los demas codigos que hay en la tabla de traduction). Los restantes caracteres de 
la tabla son los siguientes: 

PRINT CHR*(&A0) 
■'" (en la pantalla) 
PRINT #8,CHR*(8<A0) 
A (taibien en la iipresora) 
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CHR$ 


Caracter 

en la 
pantalla 


Traduction 

en la 
impresora 


Signo escrito en el papel 


Reino 
Unido 


EE.UU. 


Francia 


Alemania 


Espaiia 


&A0 
&A2 
&A3 
&A6 
&AE 
&AF 


£ 
§ 

6 
i 


&5E 
&7B 
&23 
&40 
&5D 
&5B 


t 
£ 

t 
t 
t 


t 
# 

t 
t 
t 


t 
# 

t 
t 
t 


t 
# 

§ 

t 
t 


Pt 

t 

6 
i 



f Vease la pagina 18 del manual de la DMP1. 

La tabla anterior es un extracto de las traducciones implicitas, que se pueden modi- 

ficar a voluntad. Vease el manual del firmware (SOFT 946) para mas detalles. 



Parte 11: Joysticks 



El ordenador puede funcionar con uno o dos joysticks. La maquina los considera 
como parte del teclado, y por consiguiente su estado se puede determinar con IN KEY 
e INKEY$. 

Notese que en la mayor parte de los casos, el boton principal de disparo del joystick 
es interpretado como 'DISP.2' por el CPC664. 

Las funciones JOY(0) y JOY(1 ) permiten inspeccionar directamente los dos joysticks. 
Cada una de estas funciones genera un resultado, interpretable bit a bit, que informa 
de la situation de los interruptores del joystick en el momento en que se realizo la ul- 
tima comprobacion del teclado. 

La tabla siguiente indica los valores generados por los dos joysticks. Ademas de los 
niimeros de la funcion JOY, se incluyen los niimeros que se deben utilizar en instruc- 
ciones que llevan como parametro los niimeros de las teclas (tales como IN KEY y 
KEY DEF). 



ESTADO 


FUNCION JOY 


NUMEROS DE TECLA 


Arriba 
Abajo 
Izquierda 
Derecha 
Disparo 2 
Disparo 1 


Bit que 
esta a 1 


Valor 
generado 


Primer 
joystick 


Segundo Tecla 
joystick equivalente 



1 

2 
3 
4 
5 


1 

2 

4 

8 

16 

32 


72 
73 
74 
75 
76 
77 


48 '6' 

49 '5' 

50 'R' 

51 'T' 

52 'G' 

53 'F' 
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Notese que cuando se generan los valores correspondientes al segundo joystick, el or- 
denador no puede saber si esos valores han sido generados por el joystick o por las 
teclas equivalentes (ultima columna de la tabla anterior). Esto representa que se puede 
utilizar el teclado como sustituto del segundo joystick. 



Parte 12: Organization de los discos 

El BIOS maneja tres formatos de disco diferentes: formato SISTEMA, formato SOLO 
DATOS y formato IBM. AMSDOS detecta automaticamente el formato cada vez que 
accede a un disco en el que no haya ficheros abiertos. Para permitir esta detection 
automatica en cada formato los sectores se numeran de forma diferente. 

Los discos de 3 pulgadas tienen dos caras utilizables, aunque no al mismo tiempo. 
Cada cara puede haber sido inicializada con un formato distinto. 

Comun a todos los formatos: 

Una sola cara (las dos caras del disco de 3 pulgadas se tratan por separado). 
Capacidad fisica de cada sector: 512 bytes. 
40 pistas, numeradas del al 39. 
Tamafio de bloque de CP/M: 1024 bytes. 
Directorio de 64 resefias. 

Formato SISTEMA 

9 sectores por pista, numerados del &41 al &49. 
2 pistas reservadas. 

Este formato es el principal, ya que CP/M solo puede ser cargado con un disco que 
tenga este formato. Las pistas reservadas se utilizan de la siguiente forma: 

Pista sector &41: Sector de carga automatica. 

Pista sector &42: Sector de configuration. 



No se utilizan. 
CCP y BDOS 



Pista sectores &43 a &47 
Pista sectores &48 y &49 
Pista 1 sectores &41 a &49 

Notese que el formato COMERCIAL es una version especial del formato SISTEMA 
en el que no se graban las pistas reservadas. Este es el formato en que se graban los 
programas que se venden en el comercio. 
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Formato SOLO DATOS 

9 sectores por pista numerados del &C1 al &C9. 
Ninguna pista reservada. 

Este formato esta disenado para su desarrollo en el future No se recomienda utili- 
zarlo con CP/M, pues no permite cargar el sistema operativo. No obstante, si solo se 
va a utilizar el disco con AMSDOS, se lo puede inicializar con este formato para dis- 
poner de mas espacio. 

Formato IBM 

8 sectores numerados del &1 al &8. 
1 pista reservada. 

Este formato coincide con el formato de una sola cara utilizado por el CP/M del IBM 
PC. Esta reservado a su utilization por especialistas. 



Parte 13: Memoria 

Mapa de la memoria 

RtFFFF 
ROM DE < ROM DE < >RAM DE LA PANTALLA 
AMSDOS FIRMWARE 

&C000 

kEFFF 

> AREA DE DATOS DEL FIRMWARE 
BLOQUE DE SALTOS 

AREA DE DATOS DE BASIC 
AREA DE DATOS DE AMSDOS 
AREA DE DATOS DE ROMS DE 
EXPANSION 
&t7??7 

> CARACTERES DEFINIDOS POR USUARIO 
HI MEM 

> AREA PARA PROGRAMA DE BASIC 
k4000 

&3FFF 
ROM DE BASIC < > AREA PARA PROGRAMA DE BASIC 
k0000 
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donde la direction &???? depende las ROMs instaladas (&???? es &A6FC cuando no 
hay ninguna ROM conectada). 

Vease la pagina 8/52. 



Otras entradas y salidas (I/O) 

La mayor parte de las direcciones de puertas I/O esta reservada para el ordenador. 
En particular, las direcciones inferiores a &7FFF no se deben utilizar nunca. 

Esta previsto que la parte de la direction A0-A7 refleje el tipo de dispositivo externo 
de 1/ O, y que las lineas de direction A8 y A9 puedan ser codificadas para seleccionar 
registros del dispositivo de I/O. De las restantes lineas, solo A10 puede ser decodifi- 
cada (como baja), mientras que las lineas All a A15 son altas. Asi, cada dispositivo 
pueden tener registros direccionados como &F8??, &F9??, &FA?? y &FB??, donde 7? 
esta en el margen de DC a DF para interfaces de comunicacion y entre EO y EE para 
otros perifericos. 

Notese que se deben utilizar instrucciones del Z80 que pongan el registro B en la mi- 
tad superior del bus de direcciones (A15-A8). 
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Capitulo 8 
Cuando usted guste 



En este capitulo vamos a dar un repaso a ciertas cuestiones 
bdsicas de informdtica en general y del CPC664 en particular. 
No es imprescindible leer este capitulo para trabajar con el or- 
denador, pero puede ayudarle a entender algo de lo que estd 
ocurriendo en su interior. 



Parte 1: En terminos generates 



;Fulmina el bicho! 



Aun cuando lo unico que le interese de su CPC664 sea disfrutar de los sofisticados 
juegos de ordenador que se venden en las tiendas, es posible que se pregunte que tiene 
la maquina dentro, es decir, que es eso del hardware. 

Hardware es lo que usted puede coger y llevarse bajo el brazo (es un decir): la caja 
gris donde esta el teclado, el monitor, los cables, etc. Mas en general, todo lo que no 
sea especificamente software: programas, manuales e information grabada en cinta o 
en disco. 

Ciertos aspectos del funcionamiento del ordenador estan estrechamente ligados al 
hardware; por ejemplo, la imagen de color que usted puede ver en la pantalla. En cam- 
bio, es responsabilidad del software controlar el hardware para producir los caracteres 
y dibujos deseados. 

Es el hardware el que dirige el haz de electrones a la superficie electroluminiscente de 
que esta recubierto el interior del tubo del televisor; el software aporta la organization 
y la inteligencia para decir al hardware como y cuando debe hacerlo. Anade ademas 
el control de los tiempos y de las secuencias de acciones para que usted pueda ver la 
nave espacial despegando, o para algo tan mundano como que aparezca una letra en 
la pantalla cada vez que usted pulsa una tecla. 



^Por que es un ordenador mejor que otro? 

El hardware sin el software es completamente inutil, y viceversa. El ordenador empie- 
za a servir para algo cuando hardware y software se ponen de acuerdo para llevar a 
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cabo sus cometidos. Hay algunas consideraciones basicas que se pueden tener en cuen- 
ta para valorar la calidad tanto de uno como del otro. 

Los puntos de referenda generalmente aceptados para los ordenadores personales son: 



1. Resolution de la pantalla: tamano del menor elemento discernible 

El concepto de resolution es una mezcla de diversos factores: numero de colores dis- 
ponibles para el programador, numero de areas discernibles en la pantalla (pixels) y 
numero de caracteres de texto que caben en ella. 

Usted puede comprobar que su CPC664 es superior a este respecto a los otros orde- 
nadores de su nivel de precio. 



2. El interprete de BASIC 

Practicamente todos los ordenadores domesticos incluyen un interprete de BASIC que 
permite al usuario crear programas con los que controlar el hardware. El lenguje de 
programacion que viene con la maquina, BASIC, no es mas que un programa, pero 
un programa extremadamente complejo que ha evolucionado a los largo de los afios, 
desde que se 'invento' el BASIC en los Estados Unidos. El 'Beginners' All-purpose 
Symbolic Instruction Code' (codigo de instrucciones simbolicas de uso general para 
principiantes) es el lenguaje de ordenador mas ampliamente utilizado en el mundo en- 
tero; como todos los lenguajes, tiene sus dialectos locales. 

La version utilizada en el CPC664 es uno de los de mayor compatibilidad; puede eje- 
cutar programas escritos para funcionar bajo control del sistema operativo basado en 
disco CP/M. Es una version muy rapida de BASIC, lo que quiere decir que realiza 
los calculos muy deprisa. A usted quiza no le parezca demasiado impresionante que 
un ordenador tarde 0.05 segundos en multiplicar 3 por 5 y escribir la respuesta, mien- 
tras que otro ordenador tarda 0.075 segundos en hacer lo mismo. Pero cuando se tra- 
ta de dibujar graficos en la pantalla, tarea que puede requerir millares de calculos re- 
petitivos, la diferencia entre 0.05 y 0.075 segundos es decisiva. 

Usted oira hablar frecuentemente de 'codigos de maquina'. El codigo de maquina es 
una forma de suministrar instrucciones directamente al microprocesador. La veloci- 
dad de ejecucion es entre 5 y 15 veces mayor en codigo de maquina que en BASIC, 
pero el tiempo que se tarda en escribir un programa puede ser hasta 50 veces mayor 
en codigo de maquina que en BASIC. 

El BASIC de AMSTRAD es de los mas rapidos y completos que se pueden encontrar 
en ordenadores personales, e incorpora muchos recursos que ayudan al programador 
experto a superar parte de la lentitud inherente a todos los lenguajes de alto nivel para 
producir efectos visuales y sonoros sorprendentemente dinamicos. 
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3. Ampliabilidad 

Casi todos los ordenadores prestan atencion a la necesidad de conectar perifericos ta- 
les como impresoras, joysticks y unidades de disco. Sin embargo, muchos de los mas 
populares necesitan interfaces externas para que se les pueda conectar una simple im- 
presora o un joystick. 

El comprador no siempre preve las necesidades futuras, pero un ordenador que in- 
corpore un interfaz para impresora o un conector para joystick puede ser mas barato 
a la larga que otro por el que tenga que pagar menos en el momento de la adquisicion. 

El CPC664 tiene incorporada una puerta de salida para impresora (tipo Centronics), 
una salida para segunda unidad de disco, una salida para cinta (con control de mo- 
tor), un conector para dos joysticks, una salida de sonido estereofonico y una puerta 
de expansion a la que se puede conectar un interfaz serie (RS232), un modem, un sin- 
tetizador de voz, un lapiz fotosensible, etc. 

4. Sonidos 

Las caracteristicas sonoras de un ordenador determinan si 'suena a lata' o si puede 
producir una imitation aceptable de un instrumento musical electronico. 

El CPC664 esta dotado de un generador de sonido de 3 canales y 8 octavas, que pue- 
de dar una calidad musical muy aceptable y permite el control completo de las envol- 
ventes de tono y de volumen. Ademas, el sonido se puede obtener en una configura- 
tion estereofonica, con canal izquierdo, canal derecho y canal comiin. 

Esto permite programar el sonido para coordinarlo con el movimiento de objetos por 
la pantalla. 

En ultimo extremo, es usted quien tiene que decidir que caracteristicas le son mas ne- 
cesarias. Esperamos que las pruebe todas, para asi aprovechar al maximo su 
ordenador. 



^Por que no puede? 



Sabiendo lo poderosa que es la tecnologia actual, los usuarios se preguntan frecuen- 
temente por que una maquina tan avanzada como el CPC664 es incapaz de imitar las 
imagenes de un televisor de color. Por ejemplo, £por que no puede un ordenador mos- 
trar en la pantalla la imagen de una persona caminando con naturalidad? ^,Es que los 
ordenadores no son capaces de dar movimiento mas que a unos burdos monigotes? 

La respuesta es facil, aunque compleja. No crea usted que la pantalla de su ordenador 
puede tener la misma riqueza de detalles que la de un televisor. Los televisores fun- 
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cionan con una information 'analogica', que puede describir, con resolution casi in- 
finita, todos los grados posibles de intensidad de todos los colores del espectro visible. 
En terminos informaticos, esto representa que la 'memoria' necesaria para almacenar 
una imagen de television es unas veinte veces mayor que la que se le dedica a un te- 
levisor domestico. 

Pero esto es solo una parte del problema. Para dar movimiento a una imagen, hay 
que procesar toda esa information a gran velocidad (del orden de 50 veces por segun- 
do). No es imposible, pero para ello se necesitan maquinas que cuestan unos cuantos 
miles de veces mas que un ordenador domestico, al menos en la actualidad. 

Hasta que el precio de la memoria de alta velocidad baje drasticamente (lo que ocu- 
rrira algiin dia), los ordenadores pequefios tienen que arreglarselas con una memoria 
relativamente pequefia para controlar la pantalla, lo que representa menor resolution 
y movimientos mas espasticos. Optimizando el hardware y el software se puede paliar 
considerablemente estas limitaciones, pero de momento tendremos que seguir confor- 
mandonos con imagenes torpes que ni siquiera llegan a parecerse a las de una pelicula 
de dibujos animados de regular calidad. 

Ese teclado me suena ... 

IPot que no puedo sentarme ante el ordenador y escribir una sencilla pagina de texto? 

No se deje enganar por el hecho de que el ordenador se parece a una maquina de es- 
cribir electronica con pantalla. La pantalla no es una hoja de papel electronico: es una 
'consola de ordenes', expresion tecnica que quiere decir que es una via de comunica- 
cion entre el usuario y el lenguaje de programacion que esta en la memoria de la 
maquina. 

Mientras no se le mande otra cosa, el ordenador tratara de entender todo lo que se 
le comunique a traves del teclado, pues supone que son instrucciones. Cuando usted 
pulsa [ENTER], el ordenador examina lo tecleado; si no es inteligible para el BASIC 
residente, lo rechaza y emite el mensaje: 

Syntax error 

Ahora bien, puede ocurrir que el programa actualmente presente en la memoria sea 
un procesador de textos; en tal caso usted podra escribir las palabras que desee, pul- 
sar [ENTER] y seguir escribiendo a sus anchas, exactamente igual que si el ordenador 
fuera una maquina de escribir que utilizara papel electronico. Pero, para que esto sea 
posible, antes se debe haber cargado en la memoria un programa de proceso de textos. 

El ordenador parece combinar aparatos que nos resultan familiares de tanto verlos en 
casa y en la oficina, como son la pantalla y el teclado. Pero recuerde que la similitud 
normalmente es superficial y que el ordenador es una combination de aparatos con 
personalidad propia. 
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^Quien teme a la jerga? 



Como ocurre con todas las ramas especializadas de la industria, la informatica ha de- 
sarrollado una jerga propia para facilitar la comunicacion de conceptos complejos que 
de otra forma requeririan muchas palabras de lenguaje ordinario. Esto no ocurre so- 
lamente en el campo de la alta tecnologia; todos hemos topado con barreras de este 
tipo levantadas por los profesionales de distintas areas. 

En el caso de la informatica, la confusion se debe mas a la forma de utilizar las pa- 
labras que a las palabras en si. (Y en castellano, a la imposibilidad de traducir ciertas 
palabras inglesas o a que no nos tomamos la molestia de intentarlo.) Casi todos los 
que llegan a familiarizarse con la terminologia de la informatica se esfuerzan por uti- 
lizar las palabras de la forma mas directa posible, con objeto de minimizar la dificul- 
tad de la comunicacion. Pero no crea que el lenguaje informatico es lo mismo que el 
lenguaje literario; la informatica no es literatura, sino una ciencia precisa; aparte la 
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sintaxis, la estructura de la comunicacion en informatica es directa y sencilla, y de nin- 
giin modo confusa o ambigua. Como no es literatura, la informatica no ha necesitado 
desarrollar una asignatura de 'comentario de textos' para analizar el significado exac- 
to del significado de los programas. 

Independientemente de si el significado de un programa es obvio o no lo es, hay mu- 
chos aspectos de la programacion que se pueden calificar de embarullados o de ele- 
gantes; ahora que se esta asentando el revuelo inicial causado por la aparicion de los 
microordenadores, se esta prestando mayor atencion a los aspectos formales de la cons- 
truction de programas. 

La informatica esta penetrando en las mentes de muchos jovenes que valoran la pre- 
cision y la sencillez de las ideas y de la forma de comunicarlas. No hay demasiados 
nifios que a los diez aiios sean ya abogados, pero si muchos que a esa edad saben 
programar. 




Lo basico de BASIC 

Casi todos los ordenadores domesticos tienen incorporado el lenguaje BASIC, que 
hoy por hoy es lo mas proximo al lenguaje ordinario. El nombre del lenguaje no im- 
plica ninguna limitation en cuanto a sus posibilidades; de hecho, se han escrito pro- 
gramas extremadamente complejos y potentes en BASIC. 

Sin embargo, es evidente que el nombre ha atraido a muchos principiantes, que espe- 
raban encontrar en BASIC un buen punto de partida entre el laberinto de los lengua- 
jes de programacion; y esto ha contribuido en gran medida a su universalidad. 

BASIC es un lenguaje informatico que interpreta un reducido numero de ordenes, 
como resultado de las cuales realiza operaciones con los datos segiin se va ejecutando 
el programa. A diferencia del vocabulario humano medio, que consta de entre 5000 
y 8000 palabras (ademas de la conjugation de los verbos, plurales, diminutivos, etc.), 
BASIC tiene que arreglarselas con solo un par de centenares. Los programas escritos 
en BASIC tienen que ajustarse a reglas muy estrictas en cuanto a la forma de utilizar 
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esas palabras. La sintaxis es muy precisa; todo intento de comunicarse con el ordena- 
dor en lenguaje coloquial producira el frio mensaje: 

Syntax error 

Esto no representa una limitation seria, ya que BASIC esta diseiiado para trabajar 
con numeros. Las palabras son basicamente una generalization de las operaciones ma- 
tematicas elementales (+, -, etc.). El concepto mas importante que tienen que asimilar 
los principales es que el ordenador solo puede manejar datos numericos. Es decir, la 
information que se envia a la CPU (unidad central de proceso) tiene que estar en for- 
ma numerica. 

Numeros 

Si emplearamos un ordenador para almacenar las obras completas de Shakespeare, 
en todo el sistema no encontrariamos ni una sola letra o palabra. Todo elemento de 
information debe ser convertido a numero antes de que el ordenador pueda recono- 
cerlo y manipularlo. 

BASIC interpreta las palabras como si fueran numeros; para procesarlas, el ordena- 
dor no dispone de mas medios que la suma, la resta y la logica de Boole, con la cual 
puede hacer comparaciones y seleccionar atributos; en otras palabras, averiguar si un 
numero es menor o igual que otro, o realizar determinada tarea si un numero cumple 
cierta condition. 

A traves del programa, el ordenador desmenuza todas las tareas en sus componentes 
mas elementales. 

Si todo esto le parece farragoso, esta en lo cierto. Ha descubierto la primera y mas 
importante verdad de la informatica. Un ordenador es una herramienta que sirve para 
realizar tareas elementales y repetitivas a gran velocidad y con precision absoluta. Asi, 
BASIC interpreta las instrucciones que se le dan por medio del programa y las tradu- 
ce al lenguaje que la CPU puede entender. La logica del ordenador solo distingue dos 
estados: si y no; en notation binaria, 1 y 0; en notation de Boole, 'verdadero' y 'falso'. 
No hay estados intermedios del tipo 'quiza'. 

El proceso de conmutacion entre esos dos estados es la esencia del termino 'digital'. 
En la naturaleza casi todos los procesos evolucionan gradualmente de un estado 'es- 
table' a otro. En cambio, en la situation digital ideal, la transition de un estado a otro 
es instantanea. Sin embargo, las leyes de la fisica de semiconductores imponen un pe- 
queno retardo, el retardo de propagation, que es el causante del tiempo que tarda el 
ordenador en procesar la information antes de dar la respuesta. 

En todo caso, el ordenador tiene que esperar hasta que concluya una tarea antes de 
poder abordar la siguiente, lo que representa que siempre se le impone un retardo ar- 
tificial. El proceso digital es 'bianco' o 'negro', y las fases de transition por los diver- 
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sos grados de 'gris' no tienen ninguna importancia. En cambio, los procesos analogi- 
cos se realizan previamente a traves de esas fases de 'gris'. 

Si la respuesta final solo puede ser o 1 , no es posible que el resultado sea 'casi' co- 
rrecto. El hecho de que los ordenadores cometan errores en ocasiones se debe a la li- 
mitaci6n del tamaflo de los niimeros que pueden procesar; los niimeros con demasia- 
dos digitos tienen que ser 'comprimidos' para que encajen en el espacio disponible, lo 
que conduce a errores de redondeo. 

En un mundo en el que solo existen los digitos y 1, ^.corno se cuenta mas alia de 1? 
Esto no representa una limitation seria, ya que BASIC esta disefiado para trabajar 
con niimeros. Las palabras son basicamente una generalization de las operaciones ma- 
tematicas elementales (+, -, etc.). El concepto mas importante que tienen que asimilar 
los principiantes es que el ordenador solo puede manejar datos numericos. Es decir, 
la information que se envia al CPU (unidad central de proceso) tiene que estar en for- 
ma numerica. 



Bits y bytes 



Estamos habituados a entender los numeros solamente cuando estan expresados en el 
sistema decimal, en el que el punto de referencia es el numero 10 y en el que se dis- 
pone de 10 digitos (del al 9) para representar los numeros. El sistema binario es con- 
ceptualmente analogo al decimal, pero con solo dos digitos; las unidades con las que 
opera este sistema son los denominados bits (forma contraida de Binary digiT, digito 
binario). 

La relation entre bits y numeros decimales es sencilla y vamos a estudiarla. 

Es habitual declarar el maximo numero de bits que vamos a usar para representar los 
numeros, y anadir ceros por la izquierda para completar la expresion. Por ejemplo, el 
numero decimal 7 se convierte en el binario 

00111 
en notation de 5 bits. 

En el sistema binario, los digitos se pueden considerar como indicadores dispuestos 
en columnas para especificar si una determinada potencia de 2 esta presente o no lo 
esta: 

2° = 1 

2' = 2 = 2 = 2(2°) 

22 = 4 = 2x2 = 2(2') 

23 = 8 = 2x2x2 = 2(2 2 ) 

24 = 16 = 2x2x2x2 = 2(2 3 ) 
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de modo que las columnas tienen el siguiente aspecto: 

2 4 2 3 2 2 2' 2° 



10 11 
(16 + + + 2+1) 



19 



Para abreviar la terminologia al hablar de information binaria se introduce el con- 
cepts de 'byte', que es una sucesion de 8 bits. El mayor numero que se puede repre- 
sentar con un byte es 11111111 (binario) o 255 (decimal). Si contamos tambien el 
00000000, resulta un total de 256 numeros distintos, que son datos perfectamente va- 
lidos para el ordenador. 

Los ordenadores prefieren manejar los bits en grupos de 8. El numero 256 es dema- 
siado pequeiio, y por eso, para poder controlar la memoria, se utilizan dos bytes que 
se interpretan en forma matricial. Cada position de memoria tiene una direction ver- 
tical y otra horizontal, y entre las dos caracterizan sin ambiguedad la position. Por 
ejemplo, la siguiente matriz 
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puede caracterizar hasta 10*10 elementos de information utilizando numeros de di- 
rection comprendidos entre y 9. El elemento almacenado en la position 3,5 es un 
'1', lo mismo que el que esta en la position 5,5. 
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Analogamente, una matriz binaria de 256*256 puede caracterizar 65536 posiciones uti- 
lizando direcciones de 8 bits para los ejes vertical y horizontal de la matriz. Nuestros 
elementos iniciales, '0' yT, han progresado hasta ser capaces de identificar 65536 ele- 
mentos diferentes. 

El siguiente nivel de abreviatura en terminologia binaria es el K, que representa 1024 
bytes. El numero 1024 es la potencia de 2 mas proxima a nuestro 'kilo' (1000), y ex- 
plica por que se dice que un ordenador es de 64K cuando en realidad tiene una me- 
moria de 65536 bytes (64x1024). 

Afortunadamente, el interprete de BASIC se encarga de todas estas conversiones. Es 
perfectamente posible llegar a ser un buen programador aunque no se domine el sis- 
tema binario. No obstante, unos conocimientos de los numeros binarios pueden ayu- 
dar a desenmascarar la magia de ciertos numeros clave que inevitablemente nos en- 
contramos en informatica. 

Vale la pena dedicar algun tiempo a entender el sistema binario y a comprender el 
por que de numeros tales como el 255 o el 1024, pues parece evidente que estos nu- 
meros seguiran siendo el fundamento de la informatica, al menos en el futuro previ- 
sible. La fiabilidad y sencillez que proporciona el sistema binario se seguira imponien- 
do a la complejidad que implicaria cualquier otro sistema de numeracion. 



Sin embargo ... 



Por sencilla y elegante que sea, la notation binaria induce a confusion a los humanos, 
porque no somos capaces de leer de un golpe de vista los numeros binarios. Hay al- 
gunos otros sistemas de numeracion que los programadores utilizan con mayor faci- 
lidad. Un sistema muy utilizado en microordenadores es el hexadecimal (HEX). Esta 
basado en el numero 16. La correspondencia entre digitos decimales y hexadecimales 
es la siguiente: 



Decimal 

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 

Hexadecimal 

0123456789ABCDEF 

El sistema hexadecimal puede dividir los 8 bits de un byte en dos bloques de 4 bits, 
ya que 15 es un numero de 4 bits: 1111 en binario. El primer bloque indica el numero 
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de unidades completas de '15'; el segundo bloque indica el 'resto'. Y aqui es donde em- 
pieza a aparecer la elegancia de los sistemas binario y hexadecimal. A continuation 
damos una tabla de conversion entre los tres sistemas para los primeros niimeros: 



Decimal 


Binario 


Hexadecimal 











1 


1 


1 


2 


10 


2 


3 


11 


3 


4 


100 


4 
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101 
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110 
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111 


7 


8 


1000 


8 


9 


1001 


9 


10 


1010 


A 


11 


1011 


B 


12 


1100 


C 


13 


1101 


D 


14 


1110 


E 


15 


mi 


F 


16 


10000 


10 



Un niimero de 8 bits tal como el 11010110 (&D6 hex) puede ser subdividido en dos 
de 4 niimeros. A lo largo de todo este manual indicamos los niimeros hexadecimales 
precediendolos del signo &. El sistema hexadecimal es el mas utilizado por los pro- 
gramadores que trabajan en ensamblador. El lenguaje ensamblador es la etapa mas 
cercana a codigo de maquina a la que llegan normalmente los programadores; permite 
expresar las instrucciones en 'codigos mnemotecnicos', que son algo mas inteligibles 
que los codigos de maquina. 

Para convertir un niimero hexadecimal en binario, lo primero que hay que hacer es 
observar el primer digito, para ver cuantos grupos de '16' hay en el niimero, multipli- 
car por 16 y luego sumar al resultado el valor del segundo digito. Asi pues, no se deje 
llevar por la tentacion de pensar que &D6 es 13+6, ni 136, porque en realidad es 
(13*16)+(6)=214. 

El proceso es el mismo que seguimos cuando leemos un niimero decimal: 89=(8 x 10)+9. 
Lo que ocurre es que nos resulta mucho mas facil multiplicar por 10 que por 16; es 
una cuestion de practica. 
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Si usted ha conseguido llegar hasta aqui sin estar demasiado confuso, puede decir que 
esta en el buen camino para llegar a entender los principios basicos del ordenador. 
Quiza se pregunte para que nos metemos en todas estas complicaciones, y tiene razon. 
Un ordenador es un aparato que maneja ideas y conceptos muy sencillos; lo que tiene 
de especial es que realiza esas operaciones a una velocidad muy grande (millones de 
veces por segundo) y que tiene una enorme capacidad para recordar los datos, tanto 
los que se le han suministrado como los resultados intermedios de los muchos miles de 
sumas que realiza antes de poder dar la respuesta final. 

Si desea seguir estudiando la teoria de los ordenadores, sepa que hay miles de libros 
dedicados a estos temas. Algunos no le aclararan en absoluto las ideas, sino todo lo 
contrario, pero otros en cambio le guiaran en el descubrimiento de la sencillez y las 
relaciones fundamentales que existen entre los sistemas de numeration y le ayudaran 
a comprender la forma en que el ordenador los maneja. 
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Parte 2: Mas en concreto sobre el 
CPC664 



En esta section vamos a seguir hablando de algunas cuestio- 
nes especificas del CPC664. La information basica sobre es- 
tos temas se puede encontrar en el 'Curso de introduction' y 
en el capitulo titulado 'Lista completa de las palabras clave 
del BASIC del AMSTRAD'. 

Temas tratados en esta section: 

* Juegos de caracteres 

* ASCII 

* Variables 

* Logica 

* Caracteres definidos por el usuario 

* Formatos de escritura 

* Ventanas 

* Interruptions 

* Datos 

* Sonido 

* Graficos 

* Hardware 



Caracteres 

Cuando se ponga al teclado de su CPC664, no de por supuesto que en la pantalla va- 
yan a aparecer letras y numeros reconocibles. Ya hemos explicado que el ordenador 
no es una maquina de escribir. Lo que usted hace es pulsar una serie de conmutadores 
electricos; las seflales electricas asi producidas son traducidas por los circuitos inter- 
nos para enviar a la pantalla grupos de puntos. Segun sea la colocacion de esos pun- 
tos, podremos reconocer letras, numeros u otros caracteres del 'juego del caracteres' del 
CPC664. 

Algunos de estos caracteres no son accesibles directamente a traves del teclado, sino 
mediante la instrucci6n PRINT CHR$(<numero>). Esto es asi porque la information 
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se almacena en el ordenador en unidades de 1 byte y, como yimos en la parte 1 de 
este capitulo, 1 byte puede tener 256 formas posibles. Dado que el ordenador tiene 
que dedicar al menos un byte a cada caracter almacenado, mas vale que aproveche- 
mos las 256 combinaciones posibles en lugar de conformarnos con los 96 'caracteres 
estandar' de las maquinas de escribir y desperdiciar los 160 restantes. 

Los caracteres estandar son un subconjunto del juego total de caracteres. Su nombre 
en informatica es 'caracteres ASCII', termino derivado de 'American Standard Code 
for Information Interchange' (codigo estandar norteamericano para el intercambio de 
la informacion). Se trata de un sistema disefiado para asegurar la compatibilidad de 
los datos transmitidos de un ordenador a otro. En el capitulo anterior hemos dado la 
lista de todos los caracteres ASCII, asi como de los restantes caracteres del CPC664, 
junto a sus numeros de codigo. 



Vamos a verlos 

Seguramente ya no encierra ningiin secreto para usted un programa tan sencillo como 
este: 

10 FOR n=32 TO 255 
20 PRINT CHR*(n) ; 
30 NEXT 

con el que hacemos que el ordenador exhiba en la pantalla el juego completo de ca- 
racteres. Pero estudiemos un poco la esencia de este programa. 

Lo primero que debemos observar es que al ordenador no le hemos dicho PRINT 
"abcdefghijklmn ...", sino PRINT CHR$(n). En vez de mencionar explicitamente 
los caracteres hemos puesto en su lugar una 'variable'. Una variable es un elemento 
de informacion que varia segun impongan las instrucciones del programa. (El nombre 
que hemos dado a la variable en este caso, n, es arbitrario; podriamos haber puesto 
cualquier letra o combination de letras, cualquier cosa que no fuera una palabra re- 
servada de BASIC.) 



^Como sabemos que es una variable? 

Un mimero tal como el 5 es fijo, esta entre el 4 y el 6 y no tiene nada de variable. El 
caracter n tambien es fijo: es una letra concreta del alfabeto. 

Entonces, £como distingue el ordenador las variables de las consonantes? Si hubiera- 
mos querido decirle que considerara la n como letra del alfabeto, la habriamos escrito 
entre comillas: "n". El ordenador habria respondido con el mensaje Syntax error, 
porqe no entenderia la linea FOR "n"=32 TO 255. 
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Al escribrir la n sin comillas le hemos dicho al ordenador que n es una variable. La 
instruction FOR de BASIC tiene que ir seguida del nombre de una variable, y el or- 
denador da por supuesto que lo que pongamos despues de FOR es una variable. 

Tambien le hemos dicho al ordenador n=32 TO 255, con lo que hemos especificado 
el margen de variation de la variable: una sucesion que empieza en 32 y termina en 255. 

Una vez declarada la variable, debemos decirle al ordenador que tiene que hacer con 
ella; eso es lo que hace la linea 20: 

2.0 PRINT CHR*<n) 5 

Esta instruction hace que el ordenador, cualquiera que sea el valor de n, busque en 
su memoria el caracter que corresponde a ese valor y lo escriba en la pantalla. 

El punto y coma impide que el ordenador realice un retorno de carro y avance de li- 
nea despues de escribir cada caracter. (De no ser asi, los caracteres aparecerian uno 
debajo de otro en la primera columna de cada linea.) 

La linea 30 le dice al ordenador que cuando haya concluido la tarea con el primer 
valor de n (que es el 32) debe retornar a la linea en la que esta FOR y volver a hacer 
lo mismo con el siguiente (NEXT) valor de la variable n. Este mecanismo, denomina- 
do 'buck', es fundamental para el funcionamiento del ordenador. Gracias a el nos aho- 
rramos el tener que escribir largas series de instrucciones similares. Usted aprendera 
enseguida a incluirlo en sus programas. 

Cuando el bucle FOR ... NEXT alcanza el limite superior del margen declarado (255), 
el bucle termina y el ordenador busca la siguiente instruction; como ya no hay mas, 
el programa termina y el ordenador vuelve al modo directo y muestra el mensaje Ready. 
Este mensaje indica que el ordenador esta preparado para recibir mas instrucciones, 
una de las cuales podria ser RUN, para ejecutar otra vez el programa. El programa 
esta almacenado en la memoria y lo seguira estando hasta que le digamos al ordena- 
dor que lo borre o apaguemos la maquina. 

Este programa ilustra un hecho esencial de la informatica: todo lo que el ordenador 
hace esta relacionado con numeros. El ordenador ha escrito el alfabeto y todos los 
demas caracteres usando como referenda para acceder a ellos un numero. Cuando us- 
ted pulsa la tecla A, no le esta pidiendo al ordenador que escriba esa letra, sino que 
busque en su memoria la information numerica que necesita para exhibir el caracter 
en la pantalla. La localization de esa informaci6n es funcion del codigo numerico que 
se activa al pulsar la tecla. (Cada caracter tiene un codigo asociado; la relation com- 
pleta se da en el capitulo titulado 'Para su referencia ...*) 

Pero tampoco el hecho de visualizar el caracter tiene nada que ver con 'escribir', sino 
que es un proceso numerico. 
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Por ejemplo, el c6digo ASCII de la letra A es el 65. El ordenador tampoco entiende 
el numero 65, por lo que tiene que traducirlo de decimal a una forma que le resulte 
mas familiar: el codigo de maquina. Ya hemos estudiado los principios de esta con- 
version en la primera parte de este capitulo. 

Al principio, la conversi6n de la notacidn decimal, a la que estamos tan acostumbra- 
dos, a notation hexadecimal nos parece muy dificil. Pensar en numeros decimales nos 
parece tan natural que cambiar de sistema de numeracion es como cambiar de mano 
el tenedor y el cuchillo. 

Para manejar la notacidn hexadecimal es necesario adquirir cierto grado de destreza 
mental. Una vez adquirida, se empieza a entender el por que de muchos hechos infor- 
maticos y se hace patente la elegancia de la estructura de este sistema de numeracion. 

Si no conoce los sistemas binario y hexadecimal, le sugerimos que lea detenidamente 
la primera parte de este capitulo. 

Cuando el ordenador ha convertido la pulsacidn de la tecla A en un numero compren- 
sible para 61, busca en zona de la memoria especificada por ese numero, y en ella en- 
cuentra otra serie de numeros que describen la forma de la letra. El caracter que usted 
puede ver en la pantalla esta formado por un bloque de datos, almacenado en la me- 
moria en forma de 'matriz' numerica: 



MINIMI 
JTPS:: 

!■■■■-- 

i nm m i 




MATRIZ EN BLANCO 
(RETICULA) 



a MINUSCULA 



A MAYUSCULA 



Los elementos de la matriz son puntos dispuestos en filas y columnas. El caracter se 
'escribe' encendiendo y apagando correctamente los puntos. En el CPC664 cada ma- 
triz tiene 8 filas y 8 columnas. Si entre los 255 caracteres no encuentra el que necesita, 
usted mismo puede definirlo a su gusto con la instruction SYMBOL que describire- 
mos mas adelante. 

Los caracteres 'definidos por el usuario' se construyen especificando cada uno de los 
64 puntos de la matriz. Las combinaciones posibles son 1.84467E+19, es decir, apro- 
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ximadamente un 2 seguido de 19 ceros. Si a esto anadimos la posibilidad de agrupar 
caracteres para formar bloques mas grandes, vemos que las posibilidades de generar 
graficos s61o estan limitadas por la imaginaci6n del usuario. 



Logica 

Una diferencia fundamental entre una calculadora y un ordenador radica en la capa- 
cidad de este para manejar operaciones logicas y tomar decisiones en instrucciones del 
tipo IF ... THEN ... (si ... entonces ...). Para ello, los operadores logicos tratan los 
valores a los que son aplicados como grupos de bits y examinan y modifican los bits 
uno a uno. No es facil describir las operaciones logicas sin antes dar unas definiciones 
concisas. 

Las dos mitades de una expresion logica son los 'argumentos'. Una expresion logica 
tiene la siguiente forma: 

<argumento> [<operador logico) <argumento>] 

donde <argumento> puede ser: 

NOT <argumento> 
<expresion numerica) 
<expresion de relation) 
(<expresion 16gica>) 

Los dos argumentos de un operador logico tienen que ser enteros; de lo contrario se 
produce el error numero 6. 

Los operadores logicos (en orden de prioridad) y su efecto sobre los bits son los 
siguientes: 

AND El resultado es a menos que los bits de los dos argumentos sean 1. 
OR El resultado es 1 a menos que los bits de los dos argumentos sean 0. 
XOR El resultado es 1 a menos que los bits de los dos argumentos sean iguales. 

AND es el operador logico mas utilizado. 

PRINT 10 AND 10 
da como resultado 1 0. 

PRINT 10 AND 12 
da como resultado 8. 
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PRINT 10 AND 10.0.0 
tambien da como resultado 8. 

Esto se debe a que los numeros 1 y 1 000 han sido convertidos a su forma binaria: 

1010 
1111101000 

La operation AND comprueba los bits dos a dos. Si los dos bits de las dos filas son 
1, el resultado es 1: 

0000001000 

y este numero binario es el 8 decimal. El operador logico AND se utiliza para detectar 
cuando se cumplen simultaneamente dos condiciones. He aqui un ejemplo que explica 
como: 

10 INPUT "Dia del mes: ",dia 

20 INPUT "Mes numero: " , mes 

30 IF dia=25 AND mes=12 THEN 50 

40 CLS:GOTO 10 

50 PRINT "Feliz Navidad!" 

OR funciona de forma analoga, pero da como resultado 1 a no ser que los bits de los 
dos operandos sean 0, en cuyo caso el resultado es 0. Aplicado a los mismos numeros 
que en el ejemplo de AND, 

PRINT 1000 OR 10 
10.02 

Bit a bit: 

1010 
1111101000 

cuyo resultado es 

1111101010 

Un programa ejemplo: 

10 CLS 

20 INPUT "Mes numero: ",mes 

30 IF mes=12 OR mes=l OR mes=2 THEN 50 

40 GOTO 10 

50 PRINT "Estamos en inviernoi" 
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El operador NOT invierte todos los bits del argumento (convierte el en 1, y vice 
versa): 

10 CLS 

20 INPUT "Mes numero: ",mes 

30 IF N0T(mes=6 OR mes=7 OR mes=S) THEN 50 

40 GOTO 10 

50 PRINT "No estamos en verano!" 

Observe que se pueden combinar los operadores logicos, sin mas limitation que la lon- 
gitud de la linea: 

10 INPUT "Dia del mes: ".dia 
20 INPUT "Mes numero: " , mes 

30 IF N0T(mes=12 OR mes=l) AND dia=29 THEN 50 
40 CLS:GOTO 10 

50 PRINT "No es ni diciembre ni enero, pero puede 
ser- un aft'o bisiesto" , 

El resultado de una expresion de relation es -1 o 0. La representation binaria del 
numero -1 es una sucesion de bits iguales a 1; para el 0, todos los bits son 0. El re- 
sultado de una operacion logica entre argumentos de este tipo da -1 (verdadero) o 
(falso). Anada las siguientes lineas al programa anterior: 

60 PRINT N0T(mes=12 OR mes=l> 
70 PRINT (mes=12 OR mes=l) 

Si al ejecutar el programa introduce 29 para el dia y 2 para el mes, obtendra el men- 
saje de la linea 50, y las lineas 60 y 70 escribiran los resultados de las operaciones. 

Finalmente, XOR (OR eXclusivo) produce como resultado 'verdadero' siempre que 
los argumentos sean diferentes. 

A continuacion resumimos todo lo dicho en una tabla, denominada tabla de verdad. 
Es una forma muy clara de ilustrar que sucede en una operacion logica bit a bit. 

Argumento A 1010 

Argumento B 0110 

Resultado de AND 0010 
Resultado de OR 11 10 

Resultado de XOR 1100 
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Caracteres definidos por el usuario 

Una de las primeras aplicaciones que el lector encontrara para los niimeros binarios 
es el disefio de caracteres con la instruction SYMBOL. Como sabemos, el caracter se 
disena en una reticula de 8 por 8; cada una de las 8 filas se convierte en un numero 
binario poniendo un 1 en lugar del pixel que debe ser iluminado, y un cero en lugar 
del pixel que debe quedar del color del papel. Los 8 niimeros asi obtenidos seran los 
parametros de SYMBOL. Por ejemplo, para definir un caracter que representa una 
casa: 

* = 00001000 = fc08 = 8=8 

**** = 00111100 = k3C = 32+16+8+4 = 60 
* * = 01000010 = 8<:42 =64 +2 = 66 

* * * * = 10100101 = kA5 = 128 +32 +4 +1 = 165 

* * = 10000001 = 8(81 = 128 +1 = 129 
*****= 10110101 = &B5 = 128 +32+16 +4 +1 = 181 

* ** * = 10110001 = kBl = 128 +32+16 +1 = 177 
******** = 111111U = kFF = 128+64+32+16+8+4+2+1 = 255 

la orden es 

SYMBOL 240, 8, 60, £6, 165, 129, 181, 177,255 
o bien 

SYMBOL 240, 8<08 , k3C , M2 , 8<A5 , 6<81 , kB5 , kBl , fcFF 
o bien 

SYMBOL 240, &X.0000 10.00, &X001 1 1 100, &X01000010, &X10100101 , 
&X10000001 , &X101 10101 , &X101 10001 , &X1 1 1 1 1 1 1 1 

Para escribir el caracter asi definido: 

PRINT CHR*(240) 

Finalmente, para agrupar caracteres se puede hacer 

adosado*=CHR*(240) +CHR*(240) 
PRINT adDsado* 



o bien 



urbanizacion*=STRING*(15,240) 
PRINT urban izacicm* 
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La imprenta ... 



PRINT es la primera instruction que se usa cuando se empieza a programar. En prin- 
cipio es muy sencilla, pero podemos complicarla considerablemente. En efecto, no bas- 
ta con pedirle al ordenador que escriba, sino que tambien debemos decirle donde y 
como. 

Formato de escritura 

La instruction PRINT se puede utilizar de diversas formas. La mas sencilla es poner 
a su derecha el elemento que se desea escribir, que puede ser un numero, una cadena 
literal o el nombre de una variable: 



PRINT 


3 


3 




PRINT 


"hola 


hola 




a=5 




PRINT 


a 


5 




a*="prueba" 


PRINT 


a* 


prueba 



En una instruction PRINT se pueden poner varios elementos, intercalando entre ellos 
un separador, o bien TAB o SPC. Los separadores pueden ser la coma o el punto y 
coma. El punto y coma hace que el siguiente elemento se escriba inmediatamente a 
continuation del que se acaba de escribir; la coma provoca el salto a la siguiente zona 
de escritura. La anchura implicita de la zona de escritura es 1 3, pero se la puede mo- 
dificar con la orden ZONE: 

PRINT 3; -4; 5 
3-4 5 

PRINT "buenos", "dias" 
buenos dias 

PRINT 3,-4,5 
3-4 5 

ZONE 4 

PRINT 3,-4,5 
3-4 5 
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Observe que los numeros positivos llevan un espacio a la izquierda, mientras que en 
los negativos ese espacio esta ocupado por el signo -. Todos los numeros llevan un 
espacio en bianco a la derecha. Las cadenas se escriben literalmente tal como estan 
entre las comillas. 

La funcion SPC lleva como parametro una funcion numerica; 'escribe' tantos espa- 
cios como indique el valor de la expresion. Si el valor es negativo, se toma el 0; si es 
mayor que la anchura de la ventana actual se toma esa anchura: 

PRINT SPC<5) "hola" 
hola 

x = 3 

PRINT SPC<x#3> "hola" 
hola 

TAB es similar, pero el niimero de espacios que escribe es el necesario para que el si- 
guiente elemento se empiece a escribir en la columna especificada. 

La ventana en la que se escribe es la niimero 0, a no ser que se especifique otro nii- 
mero de canal (#) antes de la lista de elementos. Se pueden especificar otros canales 
para enviar la salida a otras ventanas. Los canales 8 y 9 estan reservados para la im- 
presora y el disco (o cinta), respectivamente. (Observese que para 'escribir' en el canal 
#9 se debe utilizar WRITE en lugar de PRINT.) 



PRINT 


"hola" 




hola 




- ventana 


PRINT 


«0, "hola" 




hola 




- taibien ventana t 


PRINT 


«4, "hola" 




hola 




- ventana 4 

Ipriiera linea de la pantalla) 


PRINT 


»8, "hola" 




hola 




- en la iipresora 
(si esta conectada) 



Con TAB y SPC se pueden controlar los formatos mas sencillos, pero en cuanto el 
formato deseado sea un poco mas complejo habra que utilizar PRINT USING y una 
'plantilla' adecuada. Una plantilla de formato es una expresion literal que contiene ca- 
racteres especiales, cada uno de los cuales especifica un formato determinado. Estos 
caracteres, denominados 'especificadores de formato', estan explicados en detalle en 
la description de PRINT USING (capitulo 3). Aqui vamos a dar algunos ejemplos. 

En primer lugar, he aqui los formatos disponibles para escribir cadenas literales: 
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" escribe tantos caracteres como espacios haya en la plantilla, mas dos: 

PRINT USING " "i"cadena de prueba" 
cadena d 

"!" escribe solamente el primer caracter de la cadena: 

PRINT USING "!"; "cadena de prueba" 

c 

Pero el formato literal mas util es seguramente "&". Con el se anula una funcion de 
BASIC por la cual, si una cadena es demasiado larga como para caber en la linea ac- 
tual, el ordenador la escribe al principio de la linea siguiente. PRINT USING "&"; 
desactiva esa funcion. (En el siguiente ejemplo ponga BORDER para hacer visibles 
los bordes del papel.) 

MODE HLOCATE 39,l:PRINT "demasiado 1 ' 

- linea 1 
demasiado - linea 2 

MODE l:LOCATE 39,l:PRINT USING "&" ; "demasiada" 

de - Hnea 1 

masiada - Unea 2 

Para los mimeros se dispone de gran variedad de plantillas. La mas sencilla es PRINT 
USING "#####", en la que cada # reserva espacio para un digito: 

PRINT USING "######"; 123 
123 

La oposicion del punto decimal se puede especificar incluyendo un punto en la 
plantilla: 

PRINT USING "####. #####" ; 12.45 
12.45000 

Los digitos que quedan a la izquierda del punto decimal se pueden agrupar de tres en 
tres, separados por comas, si se pone una coma a la izquierda del punto en la plantilla: 

PR I Nf RISING "########, .####" 5 123456. 78 
123,456.7800 

En el formato se pueden incluir los signos de dolar y de libra esterlina, para que apa- 
rezca siempre el signo monetario antes del primer digito, aunque'el numero no llene 
el formato. Esto se consigue poniendo $$ o ££ en la plantilla: 

PRINT USING »**##"; 7 
*7 
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PRINT USING "****"; 351 
*351 

PRINT USING "££*t*t*t*t, .****"; 1234.567 
£1,234.57 

Observe como se ha redondeado este ultimo niimero. 

Se puede rellenar el espacio sobrante por la izquierda con asteriscos poniendo ** en 
la plantilla: 

PRINT USING "#*««««.**» 5 12.22 
****12.2 

Esto ultimo se puede combinar con los signos monetarios poniendo **$ o **£ en la 
plantilla. 

Un signo + al principio de la plantilla especifica que siempre se debe escribir el signo 
del niimero a su izquierda. Si el + esta al final de la plantilla, el signo se escribe a la 
derecha del niimero. 

El signo - solo se puede poner al final de la plantilla; especifica que se debe poner el 
signo - a la derecha del niimero si 6ste es negativo. 

PRINT USING "+♦*#"; 12 
+ 12 

PRINT USING "+♦*♦*" ;-12 
-12 

PRINT USING ,, *t*t+ n ; 12 
12 + 

PRINT USING "♦*♦*-" ; -12 
12- 

PRINT USING "♦*#-"; 12 
12 

La inclusion de "++++" en \ a plantilla hace que el niimero se escriba en forma 
exponencial: 

PRINT USING "##**. tttttttt"; 123.45 
12.35E+01 

En cualquier caso, si el niimero es demasiado grande como para caber en el formato 
especificado, el niimero no se trunca, sino que se lo escribe entero, precedido de un 
signo % para indicar lo que ha ocurrido: 

PRINT USING "**#*"; 123456 
%123456 
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Ventanas 

El BASIC del CPC664 permite la definition y el control de hasta ocho ventanas de 
texto. Todas las acciones de control de textos se pueden referir a cualquiera de estas 
ventanas. 

Las ventanas se definen con la orden WINDOW, que va seguida de 5 parametros. El 
primero es opcional y especifica el numero de la ventana que se va a definir; si se lo 
omite, el ordenador supone el 0, que es el canal por el que el BASIC emite sus men- 
sajes normales (Ready, errores, etc.). Antes del numero se pone el signo # para in- 
dicar que se esta dando un numero de canal. Los otros cuatro parametros especifican 
los extremos izquierdo, derecho, superior e inferior de la ventana. Como son numeros 
de columna y de fila, pueden estar comprendidos entre 1 y 80 los dos primeros, y entre 
1 y 25 los segundos. 

El siguiente ejemplo define la ventana (canal) numero 4, la cual se extiende desde la 
columna 7 hasta la 31, y desde la fila 6 hasta la 18. Reinicialice la maquina y luego 
escriba: 

WINDOW 1*4,7,31,6, 18 

No parece que haya ocurrido nada, asi que escriba lo siguiente: 

INK 3,9 
PAPER t*4,3 
CLS #4 

En la pantalla ha aparecido un gran rectangulo verde, que es la ventana numero 4. 
Este ultimo ejemplo demuestra que las instrucciones PAPER y CLS se pueden referir 
a cualquiera de las ocho ventanas especificando el numero de canal; su omision hace 
que la orden actue sobre la ventana numero 0. 

Las ordenes para las que se puede especificar numero de ventana son las siguientes: 

CLS 

COPYCHR* 

INPUT 

LINE INPUT 

LIST 

LOCATE 

PAPER 

PEN 

POS 

PRINT 

TAG 

TAGOFF 

VPOS 

WINDOW 

WRITE 
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La ventana verde que hemos creado habra borrado parte del texto que teniamos en 
la pantalla, que habia sido enviado a la ventana niimero 0. 

El texto se puede escribir en cualquier ventana especificando el numero de canal en 
la instruccion PRINT: 

PRINT *»4,"estoy en la ventana 4" 

Estas palabras han aparecido en el extremo superior de la ventana verde, no en la li- 
nea siguiente de la pantalla, que es lo que habria ocurrido con: 

PRINT "estoy en la ventana 0" 

Observe que al escribir esta ultima orden el texto ha invadido parte de la ventana verde. 

Si usted desea confinar todos los mensajes de BASIC a la ventana numero 4, inter- 
cambiela con la implicita (la numero 0) mediante la orden: 

WINDOW SWAP 0,4 

El mensaje Ready ha aparecido ahora en la ventana y el cursor esta debajo de el. Es- 
criba lo siguiente: 

PRINT tt4,"estoy en la ventana 4" 

El texto ha aparecido debajo de la orden WINDOW SWAP, en lo que antes era la 
ventana y ahora es la 4. Estos ejemplos demuestran que el ordenador recuerda la 
position de escritura de cada ventana incluso despues de un intercambio. Escriba lo 
siguiente: 

LOCATE t*4,20, 1 

PRINT "estoy en la ventana 0" 

PRINT 84., "estoy en la ventana 4" 

Mientras no se ejecuta una orden WINDOW, todas las ocho ventanas coinciden con 
la pantalla entera. Lo mismo ocurre despues de una orden MODE. Asi pues, si des- 
pues de jugar con las ventanas se encuentra con que el cursor esta en una muy peque- 
fia, puede salir del lio escribiendo MODE 1: 

MODE 1 

WINDOW 20,21,7, 18 

MO 

DE 

1 

El ordenador se ha visto obligado a partir la palabra MODE, pero la instruccion fun- 
ciona igual. (No olvide dejar un espacio entre la E y el 1 .) 

Ahora que ya tiene una idea de como funcionan las ventanas, escriba y pruebe el si- 
guiente programa: 
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10 MODE 

20 FOR n=0 TO 7 

30 WINDOW #n,n+l,n+6,n+l,n+6 

40 PAPER #n,n+4 

60 FOR c = l TO 200: NEXT c 

70 NEXT r. 

Este programa crea 8 ventanas que se solapan y las borra con un color de papel di- 
ferente para cada una. 

Cuando termine el programa y haya aparecido Ready, pulse [ENTER] varias veces 
para observar como afecta el desplazamiento de la ventana a los bloques de colores. 
Sin embargo, aunque el contenido de las ventanas se desplace, las ventanas en si si- 
guen estando en el mismo sitio. Compruebelo escribiendo: 

CLS #4 

Fijese tambien en los diferentes efectos de las siguientes ordenes: 

LIST 
LIST #4 
LIST #3 

Otra caracteristica interesante de la orden WINDOW es que tambien admite los nu- 
meros que especifican los bordes izquierdo y derecho en orden inverso; es decir, aun- 
que el primer parametro sea mayor que el segundo, BASIC los interpreta en el orden 
correcto. Analogamente ocurre con los bordes inferior y superior. 

10 MODE 

20 a=l+RND*19:b=l+RND*19 

30 c = l+RND*24:d = H-RND*24 

40 e=RND*15 

50 WINDOW a,b,c,d 

60 PAPER e:CLS 

70 GOTO 20 



Interrupciones 



Por si todavia no lo ha leido en otro lugar de este manual, le diremos que una de las 
principales innovaciones del software del CPC664 es su capacidad de gestion de las 
interrupciones desde BASIC; esto hace que el BASIC del AMSTRAD sea capaz de 
realizar acciones simultaneas controladas por programa. Esto es lo que se suele deno- 
minar 'multitarea', y se programa con las instrucciones AFTER y EVERY. 

Esta misma habilidad queda demostrada por la forma en que se controla el sonido al 
traves de recursos tales como las colas de sonido y la sincronizacion de canales. 
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Todo lo que tenga que ver con la medida del tiempo se encarga al cronometro patron 
del sistema, que es un circuito controlado por un cristal de cuarzo. Este reloj se en- 
carga de cronometrar y de sincronizar los procesos que tienen lugar dentro del orde- 
nador: desde el barrido de la pantalla hasta el envio de impulsos al microprocesador. 
Toda funcion del hardware que tenga que ver con el tiempo depende del reloj patron. 

Las instrucciones AFTER (despues de) y EVERY (cada) hacen precisamente lo que 
su nombre sugiere. Asi, AFTER invoca una determinada subrutina cuando ha transcu- 
rrido el tiempo especificado. 

El CPC664 mantiene un reloj- de tiempo real. La orden AFTER permite que un pro- 
grama de BASIC realice una tarea en un instante futuro especificado. Existen cuatro 
temporizadores de retardo, cada uno de los cuales puede tener una subrutina asociada. 

Cuando el tiempo especificado ha transcurrido, la rutina se ejecuta automaticamente, 
exactamente igual que si el ordenador hubiera encontrado un GOSUB en la linea ac- 
tual del programa. Cuando la rutina se acaba, con el RETURN habitual, el programa 
continiia a partir del punto en que fue interrumpido. 

La orden EVERY permite que el programa de BASIC ejecute subrutinas a intervalos 
de tiempo regulares. Tambien en este caso se dispone de cuatro temporizadores, a cada 
uno de los cuales se puede asignar una subrutina distinta. 

Los temporizadores tienen prioridades de interruption diferentes, lo que tiene impor- 
tancia cuando varios de ellos compiten por interrumpir el programa en un momento 
dado. El temporizador 3 tiene la maxima prioridad, y el la minima (vease el capitulo 
'Para su referencia ...'). 

10 MODE l:n=14:x=RND#400 

20 AFTER x,3 GOSUB 30 

30 EVERY 25,2 GOSUB 160 

40 EVERY 10,1 GOSUB 170 

50 PRINT"Pruebe sus re-flejos:" 

60 PRINT"pulse la barra espaciadara. " 

70 IF ir.d = l THEN END ELSE 70 

80 x=REMAIN<2) 

90 IF INKEY(47)=-1 THEN 110 

100 SOUND 1,900: PRINT "Tramposo! " : GOTO 150 

110 SOUND 129,20:PRINT"AHORA":t=TIME 

120 IF INKEYC47>=-1 THEN 120 

130 PRINT"Ha tar dado"; 

140 FRINT(TIME-t) /300; "segundos" 

150 CLEAR INPUT: ind=l: RETURN 

160 SOUND 1,0, 50 .-PRINT". " ; : RETURN 

170 n=n+l:IF n>26 THEN n=14 

180 INK l,n: RETURN 
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Las ordenes AFTER y EVERY se pueden ejecutar en cualquier lugar del programa. 
Su efecto es reelegir la rutina asociada y poner a cero el temporizador correspondien- 
te. Los temporizadores estan compartidos por AFTER y EVERY, de modo que una 
orden AFTER cancela la anterior EVERY referida al mismo temporizador, y vice 
versa. 

Las ordenes Dl y El inhiben y habilitan, respectivamente, las interrupciones. Esto sir- 
ve para permitir que cierta interruption se procese sin ser interrumpida por otra in- 
terruption mas prioritaria. La orden REMAIN da el tiempo que queda en un tempo- 
rizador y lo desactiva. 



Listas de datos 

Si un programa necesita que se le suministre siempre la misma information cada vez 
que se lo ejecuta, es preferible hacer que esa information este contenida en el propio 
programa para no tener que teclearla con cada ejecucion. Esto es posible gracias al 
par de instrucciones READ/DATA. La orden READ es similar a INPUT en el sen- 
tido de que asigna valores a variables, pero en lugar de captar los valores por el te- 
clado los lee en listas encabezads por la palabra DATA. Los dos ejemplos siguientes 
ilustran la diferencia: 

10 INPUT "escriba 3 nameros separados por comas: ",a,b,c 

20 PRINVlos numeros son " ; a; "y " i b; "y " ; c 

run 

10 READ a,b,c 

20 PRINT" los numercs son " ; a; "y " i b ; "y " ; c 

30 DATA 12, 14,21 

run 

Los datos contenidos en las listas DATA van separados por comas, lo mismo que los 
que se teclean en respuesta a una instruction INPUT. 

Las listas DATA pueden contener, no solo numeros, sino tambien cadenas literales 
constantes: 

10 DIM a*(ll) 

20 FOR i=0 TO 11 

30 READ a*( i ) 

40 NEXT 

50 FOR i=0 TO 11 

60 PRINT a*(i) 5 " "; 

70 NEXT 

80 DATA Cuentan, de, un, sabio, que, un, dia, tan,pobre, y, 
roisero, estaba 

r u r> 
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Observe que no es necesario encerrar entre comillas las cadenas que se ponen en las 
listas DATA. Las comillas en este caso son opcionales (tambien lo son en INPUT). 
El unico caso en que son necesarias es cuando una cadena contiene una coma; si no 
se la pusiera entre comillas, la instruction READ se detendria en la coma y no leeria 
el resto de la cadena. 

10 READ a* 

20 WHILE a*<>"*" 

30 PRINT a* 

40 READ a* 

50 WEND 

60 DATA lo5 dias de la semana son lunes, martes, 

niercoles, jueves, viernes y sabado 
70 DATA "Ids dias de la semana son lunes, martes, 

miercoles, jueves, viernes y sabado" 
80 DATA * 
run 

La cadena de la linea 60 contiene comas, y por lo tanto cada tramo sera leido por 
READ y escrito por separado. En cambio, la de la linea 70 ha sido delimitada por 
comillas y READ la lee de una sola vez. 

El ejemplo anterior demuestra que los datos pueden estar distribuidos en varias lineas 
(60, 70, 80, ...). Otro detalle no tan evidente es que las lineas DATA pueden estar en 
cualquier lugar del programa, antes o despues de las instrucciones READ que leen la 
information. 

Si un programa contiene varias instrucciones READ, cada una continua leyendo don- 
de termino la anterior: 

10 DATA 123,456,789,321,654,2343 

20 FOR i=l TO 5 

30 READ num 

40 total =total +num 

50 NEXT 

6.0 READ total2 

70 IF total=total2 THEN PRINT "los datos son 

correctos" ELSE PRINT "hay un error en los datos" 
run 

Modifique uno de los primeros cinco niimeros de la lista de la linea 10 y ejecute otra 
vez el programa. Esta tecnica de poner al final de la lista un dato adicional que sea 
la suma de los anteriores constituye un buen metodo de detection de errores en los 
datos, especialmente si los datos son muchos. Se le llama 'suma de verification'. 

Si un programa requiere datos mixtos (cadenas y niimeros), se los puede combinar en 
una misma lista DATA, a condition de que READ los lea en el orden correcto. Por 
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ejemplo, si una lista DATA contiene dos numeros seguidos de una cadena, la instruc- 
tion READ tendra que leer primero dos variables numericas y luego una literal: 

10 DIM a(5) ,b(5) ,5*(5) 

20 FOR i=l TO 5 

30 READ a(i) ,b(i) ,5*(i) 

40 NEXT 

50 DATA 1 , 7, Alfredo, 3, 9, Juan, 2, 2, Enri que, 4, 6, 

Pedro, 9,1, Manuel 

60 FOR i=l TO 5 

70 PRINT =*<i) , ": ";a(i )*b(i) 

80 MEXT 

Tambien se pueden separar los datos en dos listas distintas: 

10 DIM a(5) ,b(5) ,5*<5) 

20 FOR i=l TO 5 

30 READ a(i) ,b(i) 

40 NEXT 

50 FOR i=l TO 5 

60 READ 5*(i) 

70 NEXT 

80 DATA 1,7,3,9,2,2,4,6,9,1 

90 DATA Al-f redo, Juan, Enrique, Pedro, Manuel 

100 FOR i=l TO 5 

110 PRINT s*(i ) , n : " 5a(i)#b(i ) 

120 NEXT 

Si ahora cambiamos el limite superior de la linea 20: 

20 FOR i=l TO 4 

los dos primeros intentos de leer cadenas daran '9' y '1 '. Estos valores son cadenas 
validas, pero el programa no funciona como esperabamos. Una forma de asegurar 
que el programa funciones correctamente consiste en incluir las lineas 

15 RESTORE 80 
45 RESTORE 90 

La orden RESTORE hace que el puntero de datos 'apunte' hacia el principio de la 
linea especificada; por lo tanto se la puede incluir en una instruction condicional para 
que el bloque de datos leidos dependa del resultado de alguna comprobacion. Por ejem- 
plo, en un juego que este previsto para varios niveles de destreza, los datos de cada 
nivel pueden ser seleccionados mediante una variable adecuada. Veamos un ejemplo: 

1000 REM seccion para dibujar la pantalla 
1010 IF nivel=l THEN RESTORE 2010 
1020 IF nivel=2 THEN RESTORE 2510 
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1030 IF nivel=3 THEN RESTORE 3010 

1040 FOR y=l TO 25 

1050 FOR x=l TO 40 

1060 READ car 

1070 LOCATE x,y:PRINT CHR*<car); 

1080 NEXT x,y 

2000 REM DATA para pantalla 1 

2010 DATA 200,190,244,244,210, ... etc. 

2500 REM DATA para pantalla 2 

2510 DATA 100,103,245,243,251, ... etc. 

3000 REM DATA para pantalla 3 

3010 DATA 190,191,192,193,194, ... etc. 

Otra aplicacion tipica de las instrucciones DATA/READ/RESTORE es un progra- 
ma que interprete una melodia. Los periodos de tono se pueden poner en listas data; 
RESTORE puede hacer que se repita una section moviendo el puntero de datos ha- 
cia atras: 

10 FOR i=l TO 3 

20 RESTORE 100 

30 READ nota 

40 WHILE nataO-1 

50 SOUND 1, nota, 35 

60 READ nota 

70 WEND 

80 NEXT 

90 SOUND 1, 142, 100 

100 DATA 95,95,142,127,119,106 

110 DATA 95,95,119,95,95,119,95 

120 DATA 95,142,119,142,179,119 

130 DATA 142,142,106,119,127,-1 

run 



£1 sonido de la musica 

De todas las instrucciones del CPC664, es posible que las de sonido y envolventes le 
parezcan las mas imponentes a primera vista. Y sin embargo, con un poco de practica, 
muy pronto podra programar ruidos de diversos tipos e incluso melodias con armonia. 

Empecemos por analizar las cuatro primeras partes de la instruction SOUND, que 
son las siguientes: situation de canales, periodo de tono, duration de la nota y volu- 
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men. Lo primero que hay que saber es en que margen de valores puede estar cada uno 
de estos parametros. 

Aplazaremos el primero de momento porque es el mas complicado. El segundo, pe- 
riodo de tono, puede tener cualquier valor entero comprendido entre y 4095. Sin 
embargo solo algunos de estos valores producen notas reconocibles: son los que estan 
relacionados en la parte 5 del capitulo 'Para su referenda ...'. Por ejemplo, el numero 
478 produce la nota DO media; el 506 produce la nota SI inmediatamente anterior; 
los valores 479 a 505 producen cada uno un tono diferente, pero ninguno de ellos co- 
rresponde a la escala del piano. Si el parametro es 0, no se produce ningun tono; esto 
es util cuando se esta generando ruido. 

El tercer parametro de la orden SOUND especifica la duracion de la nota en unida- 
des de centesimas de segundo. Su valor puede estar normalmente entre 1 y 32767. Si 
es 0, la duracion queda controlada por la 'envolvente' (de la que hablaremos mas ade- 
lante). Si el parametro es negativo, su valor absoluto indica cuantas veces se va a re- 
petir la envolvente; por ejemplo, -3 significa 'repetir la envolvente tres veces'. 

El cuarto parametro especifica el volumen. Puede valer entre y 15; el valor implicito 
es 1 2, que es el que el ordenador supone si no se especifica otra cosa. En los sonidos 
sencillos que hemos conocido hasta ahora, el volumen ha permanecido constante du- 
rante el tiempo en que ha sonado cada nota. Sin embargo, cuando se utiliza una 'en- 
volvente de volumen' para hacer que este deje de ser constante, el parametro 'volu- 
men' de SOUND se considera como volumen inicial de la nota. 

Bueno, vamos con el parametro de situation de canales. Quiza sepa ya el lector que 
el significado de este parametro depende del valor de sus bits; para entenderlo nece- 
sitara saber algo acerca de los numeros binarios (parte 1 de este capitulo). 

El sonido se puede generar en tres canales distintos. Si el ordenador esta conectado 
a un amplificador estereofonico, un canal sera el derecho, otro el izquierdo y otro com- 
mun a ambos o central. Para especificar en que canal o canales debe sonar una nota 
se utilizan los siguientes numeros: 

1 canal A 

2 canal B 
4 canal C 

Para enviar el sonido a varios canales, se suman los numeros correspondientes. Por 
ejemplo, para que la nota suene en los canales A y C, el parametro debe ser 1+4=5. 

SOUND 5,284 

Se preguntara el lector por que el numero del canal C es 4, y no 3. Observe que estos 
tres numeros son potencias de 2 (l=2t0, 2=2tl, 4=2t2) y se combinan para dar un nu- 
mero binario. Si imaginamos un numero binario de tres digitos, cada uno de ellos se 
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puede utilizar para indicar si el canal correspondiente debe estar conectado o desco- 
nectado. En el ejemplo anterior, 5 en decimal es equivalente a 1*4+0*2+1*1, es de- 
cir, 101 en binario. Si a los digitos de este numero binario les ponemos las etiquetas 
C, B y A, tenemos 

C B A 

1 1 

de forma que C y A estan conectados, mientras que B esta desconectado. Si quisie- 
ramos que la nota sonase en los canales A y B, el numero tendria que ser 

C B A 
I I 

En decimal: 0*4+1*2+1*1=3. La orden SOUND seria 

SOUND 3,248 

Naturalmente, este numero tiene que coincidir con el que se obtendria sumando los 
valores correspondientes a los dos canales: 1+2=3 (recuerde que A=l, B=2, C=4). 

Si despues de todo no ha entendido como funciona esto en binario, no se preocupe. 
Le basta con saber que las combinaciones de canales se programan sumando los nii- 
meros de selection de los canales deseados. 

Lamentablemente (o afortunadamente, segiin como se mire), todavia podemos sumar 
otros numeros a este parametro. Asi, los numeros 8, 16 y 32 especifican que el sonido 
debe sincronizarse con otro canal (A, B o C, respectivamente). Ahora hace falta saber 
que es eso de 'sincronizar con un canal'. Pues bien, los sonidos que hemos generado 
hasta ahora han ido directamente al canal especificado. Escriba lo siguiente: 

SOUND 1,248,2000 
SOUND 1,90,200 

A menos que sea usted un mecanografo muy lento, habra tenido tiempo de escribir la 
segunda orden antes de que se extinguiera el primer sonido. Esto ocurre porque el sis- 
tema de sonido puede guardar hasta cinco sonidos en cada una de las colas de los tres 
canales. Si queremos que suene una nota por el canal A y luego dos notas simulta- 
neamente en los canales A y B, necesitamos una forma de indicar al ordenador que 
no debe ejecutar la nota del canal B mientras no haya terminado la primera del A. En 
esto consiste la sincronizacion de canales. Hay dos formas de conseguirla: 

SOUND 1,200,1000 
SOUND 3,90,200 

En este ejemplo hemos dirigido la segunda nota a A y B, y por lo tanto no puede so- 
nar mientras no haya concluido la primera. La limitation de este metodo es que el 
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sonido que se envia a varios canales tiene que ser igual en todos ellos (en este caso, 
,90,200 era igual para el A que para el B). El otro metodo es el siguiente: 

SOUND 1,200,2000 
SOUND 1+16,90,200 
SOUND 2+8, 140,400 

Aqui hemos hecho que la segunda nota de A se sincronice con el sonido de B (y que 
este se sincronice con el canal A). La ventaja de este metodo es evidente: las notas 
sincronizadas pueden ser (y en este caso son) diferentes. Estos niimeros de sincroni- 
zacion tambien son interpretables bit a bit: 

8=2T3, 16=2f4, 32=2T5 

Asi, el numero de situation de canales se puede considerar como numero binario cu- 
yos digitos tienen el siguiente significado: 

Sincr. con Sincr. con Sincr. con Sonar en Sonar en Sonar en 

C B A C B A 

Sumar 32 Sumar 16 Sumar 8 Sumar 4 Sumar 2 Sumar 1 

Por ejemplo, para hacer sonar una nota en el canal C sincronizado con el A: 

110 

Este es el numero binario 1100, equivalente a 8+4 en decimal. 

Si ahora sumamos 64 (=2T6) al parametro, estamos indicando que la nota debe ser 
retenida. Esto significa que no va a sonar mientras no la liberemos con la orden 
RELEASE. 

Finalmente, si sumamos 128 (=2f 7), borramos la cola de sonido del canal especifica- 
do. Por ejemplo, si hemos ordenado un sonido que va a durar un buen rato, podemos 
anularlo borrando la cola del canal correspondiente: 

SOUND 1 , 248 , 30000 (esta nota dura 5 linutos) 

SOUND 1 f 1 23 , Ipero esta la detiene) 

Cuando se esta en modo directo, la forma mas rapida de interrumpir un sonido es 
pulsar [DEL] al principio de la linea; el pitido que asi se produce borra todas las colas 
de sonido. 

Ahora que ya sabemos enviar sonido a cualquier combination de canales (con sincro- 
nizacion, si es necesario), vamos a intentar producir algo mas agradable que los mo- 
lestos pitidos que produce una orden SOUND en esta forma sencilla. Lo haremos do- 
tando al sonido de una envolvente: una grafica que define como evoluciona la inten- 
sidad del sonido a lo largo del tiempo. Las notas producidas por los instrumentos mu- 
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sicales tienen una fase inicial de ataque en la que el volumen sube muy deprisa; des- 
pues se mantiene a un nivel algo inferior hasta que finalmente decae gradualmente a 
cero. En el ordenador se puede dar una envolvente de este tipo a las notas producidas 
por la orden SOUND. La instruccion con la que se programa la envolvente es ENV. 
Veamos un ejemplo sencillo: 

ENV 1,5,3,4,5,-3,8 
SOUND 1,284,0,0,1 

La instruccion ENV se debe ejecutar antes que la SOUND que la utiliza. Para invo- 
car una envolvente en una instruccion SOUND se pone como quinto parametro de 
esta el numero de referenda de la envolvente, en este caso el 1, que es el numero con 
que se la creo en la instruccion ENV. Los parametros de ENV describen tanto la du- 
ration como el volumen de la nota, de modo que en SOUND podemos poner en 
lugar de los datos de duration y volumen. La envolvente del ejemplo anterior hace 
que la nota crezca en 5 etapas, en cada una de las cuales el volumen aumenta en 3 
unidades y cuya duration es de 4 centesimas de segundo. Despues se especifica que el 
volumen debe decaer en 5 etapas, -3 unidades en cada una, siendo la duration de 
cada etapa 8 centesimas de segundo. Es decir, el primer parametro de ENV es el nii- 
mero de referenda de la envolvente y va seguido por grupos de tres numeros. Dentro 
de cada grupo, el primer parametro es el numero de escalones de variation del volu- 
men; el segundo, la amplitud de esos escalones; y el tercero, su duration. La duration 
total de cada section sera igual al producto del primer parametro (numero de escalo- 
nes) por el tercero (duration de cada escalon). El aumento o disminucion total del vo- 
lumen es igual al producto del primer parametro por el segundo (variation del volu- 
men por escalon). La duration total de una envolvente es la suma de las correspon- 
dientes a las secciones que la integran. 

En el ejemplo anterior, SOUND fijaba en el volumen inicial de la nota. Pero esto 
no tiene que ser necesariamente asi. En el siguiente ejemplo el volumen decrece desde 
el valor inicial 1 5 y luego vuelve a subir: 

ENV 2,5,-2,1,20,0,1,10,1,1 
SOUND 1,248,0,15,2 

El numero de esta envolvente es el 2. Consta de tres secciones. En la primera el vo- 
lumen se reduce en 5 escalones de -2; es decir, varia a traves de 5 etapas y en cada 
una se reduce en 2 unidades. La duration de cada etapa es de 1 centesima de segundo. 
La segunda section tiene 20 etapas en las que no varia el volumen (0) y cada una de 
las cuales dura 1 centesima de segundo. Finalmente, la tercera section consta de 10 
etapas, con un incremento de volumen de 1 unidad y duration de 1 centesima de se- 
gundo cada una. 

La instruccion SOUND especifica un volumen inicial de 15; al final de la primera 
section ha decrecido hasta 5; se mantiene a ese nivel durante 20 centesimas de segun- 
do y luego vuelve a crecer hasta alcanzar el nivel 15. 
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Para mejor visualizar y disenar la forma de las envolventes conviene dibujarlas en un 
papel milimetrado y leer en el los valores de los parametros requeridos. En las dos 
figuras siguientes mostramos las dos envolventes definidas hasta ahora: 
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NUMERO DE ESCALONES 20 
ALTURA DE ESCALON 
DURACION DE ESCALON 1 



NUMERO DE ESCALONES 5 
ALTURA DE ESCALON -2 
DURACION DE ESCALON 1 



El maximo numero de secciones que se puede incluir en una envolvente es 5; como 
cada section requiere 3 parametros, la instruction ENV puede llegar a tener 16 para- 
metros en total, contando el primero, que indica cual de las 15 envolventes posibles 
se esta definiendo. Podemos imaginar los numeros de volumen como dispuestos en 
circulo; si vamos subiendo de nivel y sobrepasamos el 1 5, volvemos al 0; analogamen- 
te, si intentamos descender por debajo del 0, volvemos al 15. Por ejemplo, en 

'ENV 3,9,5,20 
SOUND 1,248,0,0,3 
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la envolvente consta de una sola section de 9 etapas, cada una de las cuales incre- 
menta el volumen en 5 unidades y dura 20 centesimas de segundo. Al terminar la 
tercera etapa, el volumen ha subido de a 15; en la cuarta etapa volvera a 4; en la 
quinta a 9, etc. El proceso esta ilustrado en la siguiente figura: 
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NUMERO DE ESCALONES 9 
ALTURA DE ESCALON 5 
DURACION DE ESCALON 20 



El margen de valores para el numero de escalones es de a 127. En cada uno el valor 
puede variar entre -128 y +127 (los valores negativos representan disminucion). La du- 
ration de cada escalon puede ser de entre y 255 (centesimas de segundo). 

Ya sabemos como variar el volumen de una nota. Ahora podemos estudiar como se 
define la variation de su tono con el tiempo para producir efectos tales como el 
'vibrato'. 

El metodo es muy parecido al de las envolventes de volumen. Las envolventes de tono 
se definen con la instruction ENT. Por ejemplo: 

ENT 1,5,1,1,5,-1,1 
SOUND 1,248,10, 15, , 1 

Las envolventes de tono se invocan con la instruction SOUND poniendo en esta como 
sexto parametro el numero de referenda de la envolvente. La instruction ENT tiene 
que ser ejecutada antes que la SOUND que la utiliza. 

Este primer ejemplo de ENT define la envolvente de tono numero 1 . La primera sec- 
tion consta de 5 etapas; en cada una el periodo de tono crece en 1 unidad; cada una 
dura 1 centesima de segundo. La segunda section consta de 5 etapas; la variation del 
periodo de tono en cada una de ellas es -1 (descenso); la duration de cada etapa es 
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de 1 centesima de segundo. La duration total es, pues, 5+5=10 centesimas de segundo. 
Observese que esta duration ha sido especificada en SOUND, ya que la duration de 
la envolvente de tono no determina la duration de la nota (mientras que si lo hace la 
envolvente de volumen). Si la duration especificada en SOUND es menor que la de 
la envolvente, el final de esta se perdera. Si es mayor, el final de la nota se ejecutara 
a tono constante. Esto ultimo es tambien aplicable a las envolventes de volumen. 

(Notese la ausencia del numero de envolvente de volumen en la ultima instruction 
SOUND, debida a que aiin no hemos definido una envolvente de volumen para este 
sonido.) 

Las envolventes de tono normalmente duran menos que la nota. Se puede hacer que 
la envolvente se repita mientras la nota esta sonando. Para ello se especifica un nu- 
mero de envolvente negativo, cuyo valor absoluto se cita en la instruction SOUND: 

EMI -5,4,1,1,4,-1,1 
SOUND 1,248, 100, 12, ,5 

Esta repetition de la envolvente produce el efecto 'vibrato'. Cuando se disefian envol- 
ventes de tono, es conveniente que el tono varie simetricamente con respecto al valor 
inicial, de forma que al repetir la envolvente el tono no se desvie demasiado con res- 
pecto al valor central. Pruebe el siguiente sonido: 



ENT -6,3,1,1 

SOUND 1,243,90,12, ,6 



Habra observado que la frecuencia ha disminuido drasticamente. Esto ha ocurrido por- 
que la envolvente impone un aumento del periodo de tono de 3 unidades y se repite 
30 veces (90/3). No obstante, este efeeto se puede aprovechar para imitar trinos y 
sirenas: 

ENT -7,20, 1, 1,20,-1, 1 
SOUND i, 100,400, 12, ,7 

ENT -8.60. -1, 1,60, 1, 1 
SOUND 1, 100,480, 12, ,S 

Se pueden definir hasta 15 envolventes de volumen, con numeros de referencia del 1 
al 15; los numeros negativos indican que la envolvente se repite. Para cada section, el 
numero de escalones puede estar entre y 239. La variation del periodo de tono en 
cada escalon puede ser de entre -128 y +127. La duration de cada escalon puede ser 
de entre y 255 (centesimas de segundo). Cada envolvente puede tener hasta 5 
secciones. 

El ultimo parametro que se puede incluir en la instruction SOUND, el septimo, ca- 
racteriza el nivel de ruido que se afiade al sonido. Observese que solo hay un canal de 
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ruido y que, por consiguiente, cada vez que se especifica un periodo de ruido se anula 
la anterior especificacion. 

El ruido se puede mezclar con un tono, pero tambien se lo puede programar por se- 
parado, para lo cual se debe poner un como periodo de tono en SOUND. Esto es 
util para imitar ruidos de percusion: 

ENT -3,2,1,1,2,-1,1 

ENV ?„ 15, 1,1, 15, -1,1 

FOP a=l TO 10:SOUND 1,4000,0,0,9,3, 15:NEXT 

Un ruido como este puede servir de base para imitar el de una locomotora. Obs6rvese 
que hemos combinado los dos tipos de envolvente y el ruido. En SOUND hemos pues- 
to para los parametros de duration y de volumen, por lo que estas caracteristicas 
quedan controladas por las envolventes de volumen. 

Como ya estamos en condiciones de utilizar SOUND, ENV y ENT a plena potencia, 
vamos a estudiar algunas otras ordenes y funciones. 

Como el lector recordara, al describir el primer parametro de SOUND dijimos que 
si le sumabamos el numero 64 el sonido quedaba 'retenido' en la cola, y que no sona- 
ria mientras no lo liberasemos. La forma de liberarlo es ejecutar la orden RELEASE. 
Esta palabra va seguida de un numero cuyos bits determinan a que canales afecta la 
orden: 

4 significa canal C 
2 significa canal B 
1 significa canal A 

Los canales se combinan sumando los numeros correspondientes. Asi, para liberar el 
sonido de los tres canales la orden que se requiere es: 

RELEASE 7 

donde 7=1+2+4. Si no hay sonido retenido en ningun canal, la orden no tiene efecto. 
Pruebe lo siguiente: 

SOUND 1+64,90 

SOUND 2+64, 140 

SOUND 4+64,215 

RELEASE 3: FOR t=l TO 1000: NEXT: RELEASE 4 

No se produce ningun sonido mientras no se ejecuta la primera orden RELEASE, la 
cual libera los sonidos de los canales A y B. Despues de una pausa, la segunda orden 
RELEASE libera el canal C. 

Hay otro metodo para sincronizar sonidos. Cuando se retiene un sonido sumando 6 
a su numero de situation de canal, no solo queda el retenido, sino todos los que se 
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envien a continuation a ese mismo canal. Si se envian m&s de cuatro sonidos a una 
cola que esta retenida, la maquina queda bloqueada hasta que se libere la cola (posi- 
blemente al ejecutarse una subrutina invocada por AFTER o EVERY). Esta no es una 
buena forma de gestionar los sonidos, ya que la maquina se detendra cada vez que se 
llene una cola. Lo mismo ocurre si se ejecutan varias 6rdenes SOUND seguidas. Prue- 
be este programa: 

10 FOR a=l TO 8 

20 SOUND l,100*a,200 

30 NEXT 

40 PRINT"hola" 

run 

El texto no aparece en la pantalla inmediatamente, sino al cabo de tres segundos. Esto 
ocurre porque el programa no puede llegar a la linea 40 mientras no haya espacio li- 
bre en la cola para almacenar todos los sonidos. 

BASIC dispone de un mecanismo de interruption, similar al que se utiliza en AFTER, 
EVERY y ON BREAK GOSUB, mediante el cual se puede hacer que se ejecute una 
subrutina cada vez que queda espacio libre en una cola especificada: 

10 a=0 

20 ON SQ(1) GOSUB 1000 

30 PRINT a; 

40 GOTO 30 

1000 a=a+10 

1010 SOUND l,a,200 

1020 IF a<200 THEN ON SO ( 1 ) GOSUB 1000 

1030 RETURN 

Observe que el programa no se detiene. La instruction SOUND no se ejecuta mien- 
tras no hay espacio libre en la cola del canal A (1), hecho que detecta la orden ON 
SQ(1) GOSUB de la linea 20. Esta orden inicializa un mecanismo de interruption 
que ejecuta la subrutina cada vez que queda un hueco libre en la cola especificada. El 
mecanismo tiene que ser reinicializado cada vez que se ejecuta la subrutina (linea 1020). 
En este ejemplo, la reinitialization solo se produce si a es menor que 200. 

En un programa que lleve a cabo acciones relativamente lentas (por ejemplo, mover 
objetos por la pantalla), se puede poner musica de fondo programando una subrutina 
que ejecute una nota cada vez que quede un hueco libre en la cola. De esta forma se 
asegura que el programa no se va a detener en espera de que quede espacio en la cola. 
Si los valores de las notas estan contenidos en listas DATA, se puede hacer que la 
subrutina de sonido deje de reinicializarse cuando los datos esten a punto de agotarse. 

El parametro que va entre parentesis en la instruction ON SG( ) GOSUB puede ser 
1, 2 o 4, dependiendo del canal cuya cola se desee examinar. 
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0,1,2 
3 


1 a 

8 


4 


16 


5 


32 


6 


64 


7 


128 



Hay una funcion, SQ( ), que se puede utilizar para determinar el estado de los ca- 
nales de sonido. Su parametro puede ser 1, 2 o 4. El valor generado por la funcion 
se interpreta bit a bit segiin la siguiente tabla: 

BIT DECIMAL SIGNIFICADO 

Niimero de huecos libres en la cola 

La primera nota de la cola esta marcada para sincronizar 

con el canal A 

La primera nota de la cola esta marcada para sincronizar 

con el canal B 

La primera nota de la cola esta marcada para sincronizar 

con el canal C 

La primera nota de la cola esta retenida (esta a 1 el bit de 

retention) 

En este momento esta sonando una nota 



Pruebe el siguiente ejemplo: 

10 SOUND 2,200 

20 >;=SQ(2) 

30 PRINT BIN*(x) 

run 

La linea 30 escribe el niimero binario 1 00001 00. El bit 7 esta a 1, lo que indica que 
en el canal habia una nota sonando cuando se ejecuto la linea 20. Los tres digitos me- 
nos significativos son 1 00; equivalen al niimero decimal 4, y esto quiere decir que ha- 
bia cuatro espacios libres en la cola. Esta funcion examina la situation del canal en 
un punto especifico del programa; en cambio, ON SQ( ) GOSUB examina la cola, 
y reacciona en consecuencia, en un punto indeterminado. 

Hasta ahora todos los ejemplos han consistido en hacer sonar una o dos notas. Si se 
va a ejecutar un grupo de notas independientes, por ejemplo las de una melodia, sus 
caracteristicas se pueden guardar en lineas DATA, para luego leerlas con READ e in- 
troducirlas en SOUND: 

1.0 FOR octava=-l TO 2 

20 FOR x=l TO 7: REM notas por octava 

30 READ nota 

40 SOUND l,nota/2toctava 

50 NEXT 

60 RESTORE 

70 NEXT 

30 DATA 426,379,358,319,284,253,239 - 

run ■ • ' - 
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El ejemplo final de esta section se basa en este concepto. En los canales A y B se hace 
sonar una melodia con ritmo, utilizando la sincronizacion. Este ejemplo muestra como 
utilizar las listas DATA para incluir information sobre nota, octava, duration y 
sincronizacion: 

1.0 REM la llnea 190 da la melodia en clave de agudos 

20 REM la llnea 200 da la melodia en clave de graves 

30 DIM escala%(12) : FOR >;%=1 TO 12:READ escal a% ( x%) : NEXT 

40 canal 1%=1: READ canal 1*: canal 2%=2: READ canal2* 

50 CL9 

±0 velocidad%=12 

70 escals.*^" a-b b c + c d-e e +++ g + g" 

80 ENV 1,2,5,2,8,-1,10,10,0,15 

90 ENV 2,2,7,2,12,-1,10,10,0,15 

100 ENT -1,1,1,1,2,-1,1,1,1,1 

110 DEF FNm*(s*,s)=MID*(s*,s, 1) 

120 canal 1%=1:G0SUE 200 

130 canal2%=i:G0SUB 380 

140 IF canal l%+canal2%>0 THEN 140 

150 END 

160 DATA 8<777, &70c , &6a7, &647, &5ed , &<59S 

170 DATA &547,8<:4-fc,8<:4b4,8<:470,8<431,8<3-f4 

180 DATA 4cr-4f 4-f 1-f lglAl-B2C2-f 4g2glAl-B6A2Cr-l-f lgl-f lglal- 
blAl-b2C2g2A2g2+ lgla2g2-f6e2c2e2c2g2e2cl-BlA2g2+4e4d 
8c4-f3tlc2d4-b2-fr2-B2A2g2+6e2gr4C4-Blal-f l-blg2c2-b4a 
4g4-fr6A2A2-B4-B2Ar2-B2A2g2f6e2g4C4-BlAl-f l-Blg2C2-B4 
A4g3f , 

190 DATA r4-M-f8f 4e4c4-f r 8-f 4e2-f 2e4d2e2d8c8c6e2+ 4g4g8e4-f 3-f 
Ic4drsg4cr4e4c6-f2d4c4c8-fr8-e4dr8g8c4e4c6-f2d4c4c8-f . 

200 REM enviar- sonido al canal A 

210 pl*=FNm*(canall*,canall%) 

220 IF pl*<>"r n THEN rl%=0:GOTO 240 

230 r 1%=16: canal l%=canall%+l: pl*=FNm*( canal 1*, canal 1%) 

240 IF pl*="." THEN canal 1%=0: RETURN ELSE ll%=VAL(pl*) 

250 canal l%=canall%+l 

260 nl*=FNrr.*( canal 1*, canal 1%) 

270 canall%=canall%+l 

280 IF nl*="+" OR nl*="-" THEN 350 

290 nl*=" "+nl* 

300 ndl%=(l+INSTR(escala*,LOWER*(nl*) ) ) /2 

310 IF ASC (RIGHT* ( nl*, 1) ) >96 THEN ol%=8 ELSE ol%=16 

320 SOUND l+rl%,escala%(ndl%) /ol%, veloc idad%#l 1%, 0, 1, 1 

330 ON SQ ( 1 ) GOSUB 200 

340 RETURN 

350 nl*=nl*+FNm* (canal 1*, canal 1%) 

360 canal l%=canall%+l 
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r.c-ri t i iiM.ac : Sr 
370 GOTO 300 

380 REM enviar sonido al canal B 
390 p2*=FNm*(canal2*,canal2%) 
400 IF p2*<>"r" THEN r2%=0:GOTO 420 

410 r2%=8:canal2%=canal2%+l:p2*=FNm*(canal2*,canal2%> 
420 IF p2*="." THEN canal2%=0: RETURN ELSE 12%=VAL <p2*) 
430 canal2%=canal2%+l 
440 n2*=FNm*(canal2*,canal2%) 
450 canal2%=canal2%+l 
460 IF n2*="+" OR n2*="-" THEN 530 
470 n2*=" " + ri 2* 

480 nd2%= < H-INSTR(escala*,L0WER*(n2*) ) ) 12. 
490 IF ASC (RIGHT* < n2*, 1) ) >96 THEN a2%=4 ELSE a2%=8 
500 SOUND 2+r2%,escala%(nd2%) /o2%, veloc idad%*12%,0, 1,2 
510 ON SS(2) GOSUB 380 
520 RETURN 

530 n2*=n2*+FNm*(canal2*,canal2%) 
540 canal2%=canal2%+l 
550 GOTO 480 
run 



Dicho graficamente ... 



En esta secci6n vamos a repasar las funciones graficas del ordenador. Iremos cons- 
truyendo paso a paso un primer ejemplo para ilustrar el funcionamiento de las diver- 
sas instrucciones. 

Para empezar, dividimos la pantalla en una ventana de texto (linea 40) y una ventana 
grafica (linea 30). Ademas, establecemos el modo de pantalla y asignamos tintas par- 
padeantes a dos plumas (linea 20): 

10 REM MASK y TAG en una ventana 
20 MODE l:INK 2, 10,4: INK 3,4,10 
30 ORIGIN 440,100,440,640,100,300 
40 WINDOW 1,26, 1,25 
50 CLG 2 

Si ejecuta este programa, podra ver un cuadrado parpadeante al lado derecho de la 
pantalla. Este cuadrado ha sido borrado con la pluma numero 2 (magenta/ cyan) por 
la linea 50. El origen de coordenadas ha sido trasladado al extremo inferior izquierdo 
del cuadrado. La orden MODE ha llevado el cursor al origen de coordenadas (X=0, 
Y=0); podemos dibujar una diagonal en el cuadrado con la linea 60: 

60 DRAW 200,200,3 
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Ejecute el programa y observe el efecto. Afiada ahora: 

30 MOVE 0,2: FILL 3 

La linea 80 lleva el cursor al interior de una de las dos mitades del cuadrado y la re- 
llena con la pluma 3. El limite del recinto que se rellena es el borde de la ventana gra- 
fica (que en este caso es tambien el del cuadrado) y cualquier recta que se haya dibu- 
jado con la pluma °grafica actual (la 3) o con la que se utiliza para rellenar (tambien 
la 3). 

Ejecute esta version del programa. 

Para comprobar lo dicho acerca de los limites del recinto, afiada la siguiente linea 70. 
Observe que la unica razon para que el rellenado se limite a una mitad del cuadrado 
es que la pluma de rellenar es la misma con la que se dibujo la diagonal. 

70 GRAPHICS PEN 1 
r u. n 

Modifique la linea 80 para rellenar con la pluma 1 y ejecute el programa para com- 
probar esto ultimo. Cuando lo haya hecho, vuelva a dejar la linea 80 como estaba 
(FILL 3). 

Afiada ahora las lineas siguientes para dibujar un cuadrado: 



100 


MOVE 


20,20 


110 


DRAW 


180,20 


120 


DRAW 


1 80 , 1 80 


130 


DRAW 


20, 180 


140 


DRAW 


20,20 


run 







Este cuadrado ha sido dibujado con la pluma 1 a causa de la linea 70. Si omitieramos 
la linea 70, tendriamos que incluir ,1 como tercer parametro de MOVE en la linea 
100, o bien en el DRAW de la linea 110, para pedir al ordenador que cambiase la 
pluma grafica. 



Lineas discontinuas 

Las rectas que dibujemos no tienen que ser necesariamente de trazo continuo, sino 
que pueden ser de puntos. La orden MASK nos permite definir el tamafio de los pun- 
tos. La forma que definamos se repetira cada 8 pixels. Si la primera linea deja incom- 
plete el ultimo grupo de 8 pixels, la siguiente empezara dibujando los puntos restan- 
tes. Con una nueva orden MASK (quiza con el mismo parametro) se hace que el si- 
guiente dibujo empiece por el principio del grupo. 



Cuando usted guste ... 8/45 



El parametro de MASK es en realidad un byte binario en el que los bits que estan a 
1 indican que el pixel correspondiente se debe iluminar con la tinta de la pluma. En 
nuestro ejemplo vamos a poner el parametro directamente en forma binaria (identifi- 
cada por el prefijo &X); queremos que cada grupo de 8 pixels tenga cuatro pixels ilu- 
minados en el centro y dos apagados a cada lado. De esta forma las rectas seran de 
trazos, con cuatro pixels encendidos y cuatro apagados. Anada la linea siguiente: 

90 MASK &X00111100 
run 

Pero vemos que el enlace en los rincones no es como nos gustaria. Lo que ocurre es 
que los pixels de las esquinas se dibujan dos veces: una al final de una recta y otra al 
principio de la siguiente. Una forma un tanto torpe de resolver este problema es in- 
cluir las lineas: 

115 MOVE 180,22 

125 MOVE 178, 180 

135 MOVE 20, 178 

RUN 
Pero es mas facil poner ,0 como segundo parametro de MASK para indicar que no 
se debe dibujar el primer punto de cada linea. Modifique la linea 90: 

90 MASK fcX001 11 100,0 
y borre las que ya no necesitamos: 

115 
125 
135 

Ejecute el programa y observe que el cuadrado vuelve a ser simetrico. Si hubieramos 
puesto ,1 como segundo parametro de MASK, todas las rectas serian de trazo con- 
tinuo con el primer pixel encendido. 

Ahora observe los huecos entre trazos. En el triangulo inferior derecho hay algo que 
no esta en el otro: es el papel grafico, al que se ha dado el niimero 2 con la orden 
CLG 2 de la linea 50, pero que es invisible en el triangulo superior porque es del mis- 
mo color que el fondo. Modifique la linea 50: 

50 CLG 2: GRAPHICS PAPER 
y vuelva a ejecutar el programa. El papel ya es visible en todos los bordes del cuadrado. 

Podemos hacer que el papel grafico sea invisible ('transparente'). Esto significa que 
cuando dibujemos lineas de trazos, los huecos no taparan lo que haya debajo. Los di- 
bujos se hacen transparentes anadiendo ,1 a la orden GRAPHICS PEN. (Para ha- 
cerlos opacos el parametro debe ser ,0). Modifique la linea 70: 

70 GRAPHICS PAPER 1,1 
run 
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y observe el resultado. 

Ademas de dibujar rectas (y puntos sueltos), podemos escribir textos en la position 
del cursor grafico. La ventaja con respecto al metodo normal de escritura de textos 
es que asi podemos situar los textos con mayor precision (justamente en el pixel de- 
seado, en vez de a saltos de 8 pixels). 

Para escribir caracteres por este metodo, el cursor se pone en el lugar en el que que- 
remos que quede el punto superior izquierdo del caracter, despues ejecutamos la or- 
den TAG (o TAG #x para otros canales) seguida de las ordenes PRINT normales. El 
cursor grafico avanza automaticamente 8 pixels hacia la derecha cada vez que se es- 
cribe un caracter. Aiiada las siguientes lineas: 

160 MOVE 64, 108 

170 TAG 

180 PRINT "ELENA" 

190 TAGOFF 

run 

(BASIC envia siempre sus mensajes a la ventana de texto, cualquiera que sea la si- 
tuation del conmutador TAG/TAGOFF, pero es una buena costumbre cancelar TAG 
en cuanto se haya terminado de escribir en la pantalla grafica.) 

Pero ^que son las flechas que han salido a la derecha del nombre? Muy sencillo: el 
codigo de retorno del carro, CHR$(13), y el de avance de linea, CHR$(10), en ver- 
sion grafica. Las rutinas del firmware que escriben en la pantalla grafica traducen los 
32 primeros caracteres ASCII a sus versiones graficas [igual que si se lo enviara a la 
pantalla de texto precedidos de CHR$(1 )]. La razon es que los 32 codigos de control 
normalmente solo tienen utilidad en la pantalla de texto; por lo mismo, si sobrepasa- 
mos el borde derecho al escribir en la pantalla grafica, el ordenador lo permite y no 
salta automaticamente a la linea siguiente. 

Los signos de retorno del carro y de avance de linea se suprimen poniendo un punto 
y coma al final de la instruction PRINT: 

180 FRINT "ELENA"; 
run 

El texto enviado a la pantalla grafica depende de las mismas ordenes GRAPHICS 
PEN que los dibujos. Asi, en el ejemplo, el nombre lo escribe GRAPHICS PEN 1, 
y es transparente. La orden 

150 GRAPHICS PEN 1,0 
run 

selecciona papel opaco, mientras que 

150 GRAPHICS PEN 0, 1 
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escribe con pluma niimero en modo transparente. 

Borre la linea 150 y ejecute el programa. La pluma grafica vuelve a ser 1 en modo 
transparente (linea 70). 



Caracteres transparentes 



Hay un c6digo de control que permite escribir caracteres en la pantalla de texto en 
modo transparente. Afiada las siguientes lineas: 

200 PRINTtt2,CHR*(22) ;CHR*(i) 

210 LOCATE #2,32, 14: PR I NT**2, "****** n 

220 LOCATE #2, 32, 14: PRINT#2, " " 

230 PRINT«2,CHR*(22) JCHR*(0) 
run 

La linea 200 pone el canal #2 en modo transparente. Observe que los signos de su- 
brayar se funden con los asteriscos sin borrarlos. De esta manera se pueden formar ca- 
racteres compuestos, incluso en varios colores. La linea 230 vuelve a poner el canal 
#2 en modo opaco. 



Modos de tinta 

Es posible dibujar graficos de tal modo que la tinta con la que se dibuja interaccione 
con la ya presente en la pantalla. El niimero de tinta final para cada punto se calcula 
realizando una operaci6n 16gica con la antigua tinta del pixel y la tinta de la pluma 
grafica. La operation puede ser AND, OR o XOR. El modo de tinta se puede espe- 
cificar como cuarto parametro en las instrucciones DRAW/DRAWR, PLOT/PLOTR 
o MOVE/MOVER, o bien enviando a la pantalla los codigos de control 
CHR$(23)+CHR$(<modo>). En cualquier caso, el modo es 1 paraXOR, 2 para AND 
y 3 para OR. El valor restaura el modo normal, en el que se dibuja sin interaction. 

En el siguiente ejemplo ilustramos la combinaci6n XOR. Este modo se utiliza habi- 
tualmente en los denominados 'graficos de tortuga', porque tiene la propiedad de que 
si se dibuja algo dos veces se restaura la situation original. La rutina que dibuja el 
cuadrado se ejecuta dos veces (en las lineas 1 10 y 130), asi como la escritura con TAG 
(lineas 170 y 190). Las ordenes FRAME introducen un retardo suficiente como para 
que el efecto sea visible. Notese que las ordenes de la linea 90 no llevan primer para- 
metro. Esto es correcto tratandose de estas ordenes concretas; lo hemos hecho asi para 
no modificar las caracteristicas correspondientes. 

El tercer parametro (,1) de la orden MOVE de la linea 220 selecciona la pluma gra- 
fica numero 1, anulando asi la '3' seleccionada en la linea 60. El modo XOR se esta- 
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blece en el cuarto parametro de Ja orden DRAWR de la linea 230. Observese que tam- 
bien aqui hemos omitido un parametro. 

Podemos observar una consecuencia del efecto del segundo parametro de MASK su- 
primiendo esta orden de la linea 90. Los rincones del cuadrado desaparecen porque 
se dibujan dos veces (al final de una recta y al principio de la siguiente) con XOR. 

10 REM modos de tinta XOR 

20 MODE l.-INK 2, 10: INK 3,4 

30 ORIGIN 440,100,440,640,100,300 

40 WINDOW 1,26,1,25 

50 CLG 2: GRAPHICS PAPER 

60 DRAW 200,200,3 

70 MOVE 2,0:FILL 3 

80 ORIGIN 440,0,440,640,0,400 

90 GRAPHICS PEN , 1 : MASK ,0 

100 FOR y=60 TO 318 STEP 2 

110 GOSUB 220 

120 FRAME: FRAME 

130 GOSUE 220 

140 NEXT 

150 TAG 

L6<3 FOR y=60 TO 318 STEP 2 

170 MOVE 96,y:PRINT CHR*(224); 

180 FRAME: FRAME 

190 MOVE 96,y:PRINT CHR*(224); 

200 NEXT 

210 END 

220 MOVE 90,y,l 

230 DRAWR 20,0, , 1 

240 DRAWR 0,20 

250 DRAWR -20,0 

260 DRAWR 0,-20 

270 RETURN 

r u n 



Animation 

Se puede dar ilusion de movimiento cambiando adecuadamente los colores asignados 
a las tintas. Aunque el contenido de la memoria de la pantalla no se modifica, los di- 
bujos parecen moverse. Se da un ejemplo de este metodo en el programa de demos- 
tracion que se suministra con el disco maestro del sistema (RUN "disc"). Sin embar- 
go, el simple cambio de colores de ese ejemplo no es suficiente cuando las formas mo- 
viles tienen que solaparse. En el siguiente ejemplo recurrimos al modo OR para escri- 
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bir los niimeros 1 al 4 en la pantalla. (La forma se determina examinando el caracter 
que esta en el extremo inferior izquierdo de la pantalla y ampliando lo que alii se en- 
cuentra.) Los numeros se escriben sucesivamente con las tintas 1, 2, 4 y 8 y con el 
modo OR activado (en este caso mediante una sucesion de codigos de control, linea 50). 

El bucle que empieza en la linea 160 realiza una rotation de los colores de la paleta 
mediante una formula matematica que hace que se ilumine un numero cada vez. Las 
tintas se establecen inspeccionandolas sucesivamente y determinando si contienen el 
componente binario que estamos buscando. Por ejemplo, el 3 fue dibujado con tinta 
4; por lo tanto, para visualizar el numero 3 debemos dar un color visible a todas las 
tintas cuyo numero contenga un 4 binario. Esas tintas son: 

tmm, 5 mil), 6101101, 7101111, 12(1100), 13(1101), 1411110), i5(iiin 

En una aplicacion practica se calcularia que tintas se deberian cambiar en cada etapa, 
y las lineas 180 a 200 se sustituirian por una rutina mas rapida. 

10 REM animacion con tintas 

20 ON BREAK GOSUB 220 

30 FOR i=l TO 15IINK i, 26: NEXT 

40 m(l)=l:m(2)=2:m(3)=4:m(4)=8 

50 MODE 0:PRINT CHR* ( 23) 5 CHR* ( 3) ; : TAG 

60 FOR p=l TO 4 

70 GRAPHICS PEN m(p) ,1 

80 LOCATE #1, l,25:PRINT#l,CHR*(48+p) ; 

90 FOR x=0 TO 7 

100 FOR y=0 TO 14 STEP 2 

110 IF TEST(x*4,y)=0 THEN 140 

120 MOVE (x+6)#32, <y+6) *16: PRINT CHR*(143); 

130 MOVE <x+6)*32, < y+7) #16: PRINT CHR*(143); 

140 NEXT y,x,p 

150 LOCATE #1, 1,25:PRINT»1, " "; 

160 FOR p=l TO 4 

170 FOR i=l TO 25:FRAME:NEXT 

130 FOR i=0 TO 15 

190 IF (i AND m(p))=0 THEN INK i,0 ELSE INK i , 26 

200 NEXT i , p 

210 GOTO 160 

220 INK 1,26: PEN 1 

run 



Sprites 



En el ejemplo anterior hemos visto como se da ilusion de movimiento cambiando los 
colores despues de escribir con las tintas 1, 2, 4 y 8. Un efecto muy distinto se consi- 
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gue si se utilizan las mismas tintas pero se manejan los colores de forma diferente. 
Este efecto se conoce con el nombre de 'pianos de color'; lo ilustramos en el siguiente 
ejemplo. 

10 REM montaffas 

20 DEFINT a-z 

30 INK 0, l: INK 1,26 

40 INK 2,6: INK 3,6 

50 FOR i=4 TO 7: INK i, 9: NEXT 

60 FOR i=8 TO 15: INK i, 20: NEXT 

70 MODE 0:DEG:ORIGIN 0, 150:CLG:MOVE 0,150 

80 FOR x=16 TO 640 STEP 16 

90 DRAW c,COS(x)+150+RND*100,4 

100 NEXT 

110 MOVE 0,0:FILL 4 

120 cx=175:G0SUB 320 

130 cx=525:G0SUB 320 

140 SYMBOL 252,0,0,&C,klF,& £ 30,&7F,& £ FF 

150 SYMBOL 253,0,6,fcE,kF2,2,& £ F2,& £ FE 

160 SYMBOL 254, 0,&60, &70, k7F, k7F, &7F, ft^F 

170 SYMBOL 255,0,0,0,&F8,& £ EC,kFE,kFF 

180 pr*=CHR*(254)+CHR*(255) 

190 pl*=CHR*(252) +CHR*(253) 

200 TAG: t ! =TIME 

210 FOR x=-32 TO 640 STEP 4 

220 x2=( (608-x)#2)MOD 640: h 1=RND*10: hr =50*SIN ( x ) 

230 GRAPHICS PEN 8,1:M0VE x , 100+hr , , 3: PRINT pr*; 

240 GRAPHICS PEN 2,l:M0VE x2, 1 15+h 1 , , 3: PRINT pi*; 

250 IF (TESTU2-2, 115 + hl-12) AND 8)=8 THEN 380 

260 IF TIME~t%<30 THEN 260 

270 FRAME: t%=TIME 

280 GRAPHICS PEN 7,1: MOVE x , 100+hr ,, 2: PRINT pr*; 

290 GRAPHICS PEN 13,l:M0VE x2, 1 15+h 1 , , 2: PRINT pi*; 

300 NEXT 

310 GOTO 210 

320 MOVE ex, 100 

330 FOR x=0 TO 360 STEP 10 

340 DRAW cx+SIN(x)*50+10#RND, 100+COS (x) +25+10+RND, 1 

350 NEXT 

360 DRAW ex, 100: MOVE ex, 90: FILL 1 

370 RETURN 

380 ENT -1,1,1,1 

390 SOUND 1,25,400, 15, , 1, 15 

400 FOR y=100+hr TO -132 STEP -2 

410 GRAPHICS PEN 7,1: MOVE x,y,,2:PRINT pr*; 

420 GRAPHICS PEN 3,,l:M0VE x , y-2, , 3: PRINT pr*; 
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430 NEXT 
440 GOTO 70 
run 



Para explicar como funciona, una vez mas tenemos que expresar los numeros de INK 
en binario. Empezando por el numero maximo (el 15), asignamos el color cyan a to- 
das las tintas que tienen activo el bit del '8' (de la 15 a la 8). Despues damos el color 
verde a todas las que tienen activado el bit del '4' (de la 7 a la 4). Las tintas 2 y 3 
tienen a 1 el bit del '2' y les asignamos el color rojo. Finalmente, asignamos el color 
bianco a la tinta 1 y dejamos la tinta en azul. 

Los graficos se envian a la pantalla en modo OR (lineas 230 y 240). El color que se 
ve en la pantalla en cada pixel esta determinado por el bit mas significativo del resul- 
tante en ese punto. Asi pues, una imagen que este en un piano 'mas significativo' pre- 
domina sobre otra que este en un piano 'menos significativo', pero el fondo se con- 
serva y vuelve a ser visible si se retira la imagen 'mas significativa'. La forma de retirar 
la imagen consiste en dibujarla en modo AND: las tintas 7, 1 1, 13 y 14 borran las tin- 
tas 8, 4, 2 y 1, respectivamente (lineas 280 y 290). 

Los cuatro programas anteriores ilustran aspectos concretos de los graficos del 
CPC664. Los graficos son la faceta potencialmente mas atractiva de los ordenadores; 
su atractivo depende en gran medida del ingenio del programador. Seria imposible ca- 
talogar en un manual como este todas las posibilidades. Le sugerimos, pues, que ex- 
perimente con las muchas ordenes y funciones graficas del CPC664. 

La maquina por dentro 

El CPC664 esta basado en el microprocesador Z80. La maquina contiene tambien una 
ROM de 32K, dividida en dos partes: una mitad contiene el interprete de BASIC y 
reside en las direcciones de memoria &C000 a &FFFF. La otra mitad esta entre &0000 
y &4000 y contiene el firmware, el cual se encarga de labores domesticas tales como 
controlar el sistema, leer el teclado, mantener la pantalla, etc. 

El CPC664 dispone tambien de un mecanismo gracias al cual con un microprocesador 
de 8 bits se puede direccionar mas de 64K de memoria. Esta es la razon por la que 
la ROM de BASIC y la pantalla pueden tener las mismas direcciones. Los 16K mas 
altos de la RAM son utilizados por el circuito integrado 6845 para almacenar los da- 
tos sobre el color de cada pixel y formar la imagen. El circuito 8255 explora el teclado 
y controla el generador de sonido AY-3-8912. 

La puerta de la impresora dedica 7 bits a los datos y el octavo a la serial STROBE. 
En la puerta de expansion estan presentes todas las senales estandar del Z80. 

Para mas detalles tecnicos, incluidos los diagramas de los circuitos, la disposition de 
los componentes en los circuitos impresos, etc., consultese el 'CPC664 Service Ma- 
nual' publicado por AMSTRAD. 
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Apendice 1 

Digital Research y AMSTRAD 



Acuerdo de licencia para el usuario 
final del programa 



ADVERTENCIA AL USUARIO: POR FAVOR, LEA ATENTAMENTE 
ESTA NOTA. NO ABRA LA CAJA DEL DISCO MIENTRAS NO HAYA 
LEIDO ESTE CONTRATO. 

POR EL HECHO DE ABRIR LA CAJA USTED RECONOCE QUE ACEP- 
TA LAS CLAUSULAS Y CONDICIONES SIGUIENTES. 



1. Definiciones 

En este contrato: 

1 . 'DRF significa DIGITAL RESEARCH (CALIFORNIA) INC., P. O. Box 579, Pa- 
cific Grove, California 93950, EE. UU., propietario de los derechos de reproduc- 
tion o licenciatario autorizado del programa. 

2. 'Maquina' significa un unico microordenador en que se utiliza el programa. Para 
los ordenadores con microprocesadores multiples se requieren licencias adicionales. 

3. 'Programa' es el conjunto de programas, documentation y anejos incluidos en esta 
aplicacion, asi como las actualizaciones y modificaciones que DRI pueda sumi- 
nistrarle, cualquiera que sea la forma en que usted los utilice, con o sin sus pro- 
pias modificaciones. 

4. 'AMSTRAD' significa AMSTRAD CONSUMER ELECTRONICS PLC, Brent- 
wood House, 169 Kings Road, Brentwood, Essex CM 14 4EF, Reino Unido. 

Usted asume toda la responsabilidad derivada de la selection del programa y de 
su instalacion, utilization y resultados. 
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2. Licencia 

Usted puede: 

1 . Utilizar el programa en una sola maquina. 

2. Copiar el programa en forma electronica o impresa, bien sea como medida de se- 
guridad o para modificarlo, siempre condicionado a su utilization en una sola ma- 
quina. Para estos propositos puede hacer 3 (tres) copias como maximo. (No obs- 
tante, algunos programas pueden estar dotados de mecanismos que limiten las po- 
sibilidades de copia o la impidan; son los marcados con 'copy protected'). Esta pro- 
hibido copiar la documentation y los demas impresos. Tambien esta prohibido de- 
sensamblar el codigo de maquina. 

3. Modificar el programa o mezclarlo con otro para utilizar el programa resultante 
en una sola maquina. (Toda portion de este programa que se mezcle con otro se- 
guira estando sujeta a las clausulas de este contrato.) 

4. Transferir el programa y la licencia a otro usuario a condition de que comunique 
a DRI el nombre y las sefias de ese otro usuario, y de que este acepte (a) las con- 
diciones establecidas en este contrato, (b) firmar y enviar a DRI una copia de la 
tarjeta de registro y (c) pagar los derechos de transferencia vigentes en el momen- 
to. Si usted transfiere el programa, debe al mismo tiempo: o bien transferir todas 
las copias, incluido el original, tanto en version electronica como impresa, al mis- 
mo usuario, o bien destruir todas las copias no transferidas; esto es de aplicacion 
tambien a todas las modificaciones y a todas las porciones del programa que haya 
mezclado con otros programas. 

Usted esta obligado a incluir el mensaje de copyright en todas las copias, modifica- 
ciones y porciones mezcladas con otros programas. 



CADA DISCO TIENE GRABADO UN NUMERO DE SERIE. USTED NO 
PUEDE UTILIZAR, COPIAR, MODIFICAR, TRANSFERIR NI DE NIN- 
GUNA OTRA FORMA PERMITIR QUE OTRA PERSONA LLEGUE A ES- 
TAR EN POSESION DE ESTE PROGRAMA, NI DE NINGUNA COPIA, 
MODIFICACION O PORCION MEZCLADA CON OTRO PROGRAMA, 
SALVO EN LAS CONDICIONES PREVISTAS EN ESTE CONTRATO. 



3. Vigencia del contrato 

Esta licencia estara en vigor mientras no sea cancelada. Usted puede cancelarla en cual- 
quier momento destruyendo el programa junto con sus copias, modificaciones y por- 
ciones mezcladas con otros programas. Tambien quedara cancelada en las condicio- 
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nes mencionadas en otro lugar de este contrato, o por el hecho de que usted no cum- 
pla alguna de las clausulas del contrato. Al aceptar este acuerdo, usted se compromete 
a destruir todas las copias, modificaciones y porciones fnezcladas con otros progra- 
mas en cuanto la licencia quede cancelada. 



4. Garantia limitada 



EL PROGRAMA SE SUMINISTRA 'TAL CUAL'. NI DRI NI AMSTRAD 
OFRECEN GARANTIA ALGUNA, NI EXPRESA NI IMPLICITA, INCLU- 
YENDO LAS GARANTIAS IMPLICITAS DE COMERCIABILIDAD Y 
ADECUACION A UN PROPOSITO CONCRETO, AUNQUE SIN LIMI- 
TARSE A ESTAS. USTED ASUME TODOS LOS RDZSGOS EN CUANTO 
A LA CALIDAD Y BUEN FUNCIONAMDZNTO DEL PROGRAMA. SI 
ESTE FUERA DEFECTUSOSO, USTED (Y DRI Y AMSTRAD) ASUME EL 
COSTO TOTAL DE LA REPARACION O CORRECCION NECESARIAS. 



Ni AMSTRAD ni DRI garantizan que las funciones del programa vayan a satisfacer 
sus necesidades, ni que el funcionamiento del programa sea ininterrumpido y libre de 
error. 

No obstante, AMSTRAD garantiza que el disco soporte del programa esta libre de 
defectos, si se le da un trato normal, por un periodo de 90 dias contados a partir de 
la fecha de la compra, la cual se acreditara mediante la factura. 



5. Limitation de la responsabilidad 

La responsabilidad de AMSTRAD se limita a su compromiso de sustituir el disco de- 
fectuoso, que habra de ser enviado a AMSOFT junto con una copia de la factura. 



DRI Y AMSTRAD NO SERAN EN NINGUN CASO RESPONSABLES DE 
NINGUN DANO, INCLUIDAS PERDIDAS DE BENEFICIOS, PERDIDAS 
DE AHORROS Y CUALESQUIERA OTROS PERJUICIOS DIRECTOS O 
INDIRECTOS, AUN CUANDO DRI O AMSTRAD HAYAN SIDO AVISA- 
DOS DE LA POSIBILIDAD DE TALES DANOS, NI DE NINGUNA RE- 
CLAMACION DE TERCEROS.' 
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6. Tarjeta de registro 



DRI actualiza de vez en cuando sus programas. DRI solo le enviara tales actualiza- 
ciones si ha recibido de usted la tarjeta de registro firmada, o si la ha recibido un re- 
ceptor autorizado por DRI. DRI no esta obligada a actualizar el programa ni a en- 
viarle a usted las actualizaciones. 



7. Condiciones generates 



Usted no puede ceder, asignar o transferir ni la licencia ni el programa a otras perso- 
nas, salvo en la forma expresamente autorizada en este contrato. Todo intento de ce- 
der, asignar o transferir los derechos y obligaciones descritos en este contrato sera nulo. 

Este acuerdo sera regido e interpretado de acuerdo con las leyes britanicas. 

Si tiene usted alguna pregunta que hacer en relation con este contrato, puede escribir 
a Digital Research Inc., P. O. Box 579, Pacific Grove, California 93950, EE. UU. 



ESTE CONTRATO NO PUEDE SER MODIFICADO POR PROPUESTAS 
DE PEDIDO, POR ANUNCIOS PUBLICITARIOS NI DE NINGUNA OTRA 
FORMA. SOLAMENTE PUEDE SER MODIFICADO MEDIANTE CON- 
TRATO SUSCRITO ENTRE USTED Y UN APODERADO DE DRI Y OTRO 
DE AMSTRAD. 

USTED RECONOCE QUE HA LEIDO ESTE CONTRATO, QUE LO EN- 
TIENDE Y QUE ESTA DE ACUERDO CON LAS CONDICIONES EN EL 
EXPUESTAS. USTED ACEPTA ADEMAS QUE ESTE CONTRATO ES EL 
UNICO ESTABLECIDO ENTRE USTED, DRI Y AMSTRAD, Y QUE ANU- 
LA CUALQUIER OTRA PROPUESTA O CONTRATO ANTERIOR, VER- 
BAL O ESCRITO, Y CUALESQUIERA OTRAS COMUNICACIONES EN- 
TRE USTED Y DRI O AMSTRAD EN RELACION CON ESTE ASUNTO. 
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Apendice 2 

Lexico ingles-castellano y glosario 



Algunos terminos que se utilizan frecuentemente en informd- 
tica, explicados para los usuarios del CPC664. 



Accumulator Acumulador 

Una parte del microprocesador, en el corazon del ordenador, en el que se almacenan 
temporalmente los datos mientras se los esta procesando. Se lo utiliza en la progra- 
macion en codigo de maquina. Los usuarios de BASIC ni siquiera necesitan saber que 
existe. 



Acoustic coupler Acoplador acustico 

Tambien denominado 'modem acustico'. Dispositivo electronico mediante el cual se 
puede conectar el ordenador a la red telefonica. De esta forma el ordenador se puede 
integrar en una red de comunicacion publica, o bien comunicarse con otros usuarios 
de ordenadores domesticos para el intercambio de information o programas. 



Address Direccion 

Numero que identifica la position de una celula de la memoria del ordenador. Me- 
diante la direccion se selecciona una celula concreta para leer su contenido o, en el 
caso de la memoria RAM, para leer o escribir un valor en ella. 



Adventure game Juego de aventura 

Una pasion para algunos, un aburrimiento para otros. Un juego de ordenador en el 
que invita al jugador a participar en una serie de sucesos pseudoaleatorios con el ob- 
jetivo de salir de un laberinto. 



Algorithm Algoritmo 

Nombre grandilocuente que se da a una formula o a una suma complicada. Secuencia 
de operaciones logicas y aritmeticas con las que se realiza una determinada tarea 
informatica. 
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Alphanumeric Alfanumerico 

Adjetivo que describe la diferencia entre una letra o un digito y un caracter grafico. 

ALU (Arithmetic and Logic Unit) Unidad aritmetica y logica (UAL) 

Unidad del microprocesador que realiza las operaciones logicas y aritmeticas. De in- 
teres solamente para la programacion en codigo de maquina. 

Ambiguous File Name Nombre de fichero ambiguo 

Un nombre de fichero que contiene uno o varios simbolos comodin. Los nombres de 
fichero ambiguos pueden representar al mismo tiempo varios ficheros cuyos nombres 
tienen algo en comun. 

AMSDOS 

AMStrad Disc Operating System. Sistema operativo de disco AMSTRAD. Es el pro- 
grama que permite que el BASIC de Locomotive acceda a los ficheros de disco. 

AMSOFT 

Division de AMSTRAD especializada en el apoyo a los usuarios de los ordenadores; 
suministra programas, perifericos y publicaciones, especificamente con objeto de po- 
tenciar el CPC664 y sus muchas aplicaciones. 

A/D Analogue A/D Analogico 

Adjetivo que caracteriza los fenomenos en los que transiciones entre el estado inicial 
y el final se realiza de forma gradual o continua. Los ordenadores son dispositivos di- 
gitales, mientras que los fenomenos naturales son en su mayoria analogicos; asi pues, 
el ordenador tiene que realizar una conversion A/D antes de poder procesar los datos 
recibidos de una fuente analogica. 

Animation Animacion 

Los dibujos animados son el mejor ejemplo. La animacion en los ordenadores consis- 
te en mover graficos por la pantalla, tratando de simular los movimientos de los seres 
reales. 
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Applications program Programa de aplicaciones 

Programa escrito para realizar una tarea especifica, a diferencia de los programas de 
'utilidad', tales como ensambladores, gestores de impresora, etc., que son de interes 
mas general. 



Arcade game Juego grafico 

Juego de ordenador basado en el movimiento de graficos (invasores espaciales, mons- 
truos al acecho en un laberinto, etc.). El usuario tiene que evitar la 'muerte' de los 'bue- 
nos\ Generalmente sirven para ejercitar los reflejos, pero no tienen ningun valor di- 
dactico para los estudiantes de informatica. 



Architecture Arquitectura 

Termino que designa la organization general de un ordenador (relaciones entre el bus 
de datos, la UCP y los perifericos). 



Argument Argumento 

Una variable independiente. Por ejemplo, en SIN(x) la x es el argumento de la fun- 
cion SIN. 



Array Matriz 

Combination de elementos de un mismo tipo dispuestos en una o varias dimensiones. 
En el caso monodimensional se denominan 'vectores'. 



Artificial intelligence AI Inteligencia artificial 

Tecnica de programacion que permite al programa aprender por la experiencia. 

ASCII 

American Standard Code for Information Interchange. Codigo estadounidense estan- 
dar para el intercambio de information. Forma habitual de representar digitos, letras 
y otros simbolos mediante codigos numericos. 
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Assembler Ensamblador 

Programa que facilita la programacion en codigo de maquina. Las instrucciones son 
los llamados 'mnemonicos': grupos de letras que se recuerdan e interpretan facilmente 
porque dan una idea de la funcion que realiza cada instruction. 



Backup Copia de seguridad 

Copia que se hace de los programas o ficheros de datos en prevision de que se borre 
o deteriore accidentalmente el original. 



Bar code Codigo de barras 

Codigo impreso legible por ordenador mediante tecnicas opticas tales como laser de 
baja potencia. (Ejemplo: el grupo de rayas verticales que se imprime en la cubierta de 
algunas revistas.) 



Base Base 

Es el numero de digitos que se utilizan en cada sistema de representation numerica. 
En el sistema decimal es 10; en el binario, 2; en el hexadecimal, 16. 



BASIC 

Beginners' All-purpose Symbolic Instruction Code. Codigo de instrucciones simboli- 
cas de uso general para principiantes. Es un lenguaje de programacion interpretado 
que se incorpora en la mayor parte de los ordenadores domesticos. BASIC fue dise- 
iiado primordialmente como ayuda para la enseiianza, pues permite la comprobacion 
de los programas en cualquier momento de su desarrollo. En esto se distingue de los 
programas compilados, que no pueden ser probados parcialmente mientras el progra- 
ma no este completo. 



Baud Baudio 

Bit por segundo. Unidad de medida de la velocidad de transmision de datos. 

BCD (Binary Coded Decimal) Decimal codificado en binario 

Sistema de codification para numeros decimales en el que cada digito se representa 
por un grupo de cuatro bits. 
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BDOS 

Basic Disc Operating System. Sistema operativo basico de disco. Parte del sistema ope- 
rative) CP/M que proporciona un interfaz para que el programa del usuario pueda 
utilizar las funciones de CP/ M. 



Bechmark Prueba patron 

Una tarea estandar que se realiza con distintos ordenadores para comparar su velo- 
cidad, precision, etc. Por ejemplo, elevar al cuadrado el numero 99999 y luego calcu- 
lar la raiz cuadrada. 



Binary Binario 

Sistema de numeration de base 2, en el que los numeros se representan como combi- 
naciones de solamente dos digitos: el y el 1 . (Vease la parte 1 del capitulo 'Cuando 
usted guste ...') 



Binary number Numero binario 

Un numero representado en el sistema binario. En el BASIC del CPC664 se los iden- 
tifica por el prefijo &X; por ejemplo, &X01 01 =5(decimal). 



BIOS 

Basic Input/ Output System. Sistema basico de entrada/salida. Es la parte de CP/M 
que se escribe especificamente para cada ordenador concreto. Gestiona todas las en- 
tradas y salidas: pantalla, teclado, disco, etc. 



Bit 

Forma abreviada de Binary digiT (digito binario). Un digito binario es uno de los dos 
simbolos (el y el 1) con los que se representan los numeros en el sistema de base 2. 



Bit significant Interpretable bit a bit 

Hace referenda a los casos en los que se puede extraer information de un numero exa- 
minando el estado de cada uno de sus bits. El valor global en decimal no tiene signi- 
ficado evidente. 
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Boot Carga 

Proceso de carga de un sistema operativo en la memoria del ordenador. Cuando se 
carga CP/M desde BASIC, lo primero que se lee es un pequeiio programa autocar- 
gador, el cual realiza la carga del sistema operativo propiamente dicho. 



Booting, Bootstrapping Autocarga 

Los programas y sistemas operativos no se cargan a si mismos, sino gracias a una ru- 
tina (generalmente grabada en ROM) que inicia el proceso de carga a partir de una 
determinada position de memoria. 



Boolean Algebra Algebra de Boole 

Estructura algebraica sobre variables que pueden tomar dos valores distintos: verda- 
dero/falso, 1/0, etc. 



Buffer Tampon 

Area de memoria reservada para el almacenamiento temporal de la informacion en el 
proceso de transferencia de informacion. 



Bug Error de programacion 

Un problema no previsto en un programa: puede ir desde una 'caracteristica inespe- 
rada' (por ejemplo, si se pulsan cuatro teclas a un tiempo la pantalla cambia de color) 
hasta una secuencia de instrucciones que provoca la perdida del control de la maquina. 



Built-in commands Ordenes internas o incorporadas 

Ordenes que forman parte del sistema operativo. Son de ejecucion mas rapida que las 
ordenes externas, pues no tienen que ser cargadas del disco. 



Bus 

Grupo de conexiones, internas al ordenador o de entrada/salida, por las que se trans- 
mite informacion acerca del estado de la UCP, de la RAM o de cualquier otra parte 
del hardware. El bus del CPC664 es accesible a traves del zocalo EXPANSION que 
esta en la cara posterior del ordenador. 
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Byte Byte, octeto 

Grupo de 8 bits. Es la menor portion de information que una UCP puede intercam- 
biar con la memoria. 



CAD, Computer Aided Design DAO, disefio asistido por ordenador 

Generalmente, un programa interactive que convierte el ordenador en un tablero de 
dibujo electronico que ademas es capaz de realizar calculos matematicos. 



CAE, Computer Aided Education Ensenanza asistida por ordenador 

Programa que facilita la ensenanza en general sirviendose de los ordenadores. 

Cartridge Cartucho 

Dispositivo de memoria externo compacto conectable al ordenador (v. g., programas 
en ROM, cuya ventaja es la gran velocidad de carga, pero que son mas caros que los 
suministrados en disco). 

Cassette 

Cinta encapsulada del tipo diseiiado por Philips, ya sea virgen o con programas 
comerciales. 

CCP 

Console Command Processor. Procesador de ordenes de consola. Es el modulo de 
CP/M que interpreta y ejecuta las entradas por el teclado. 

Character Caracter 

Cualquier simbolo que pueda ser manejado y visualizado por el ordenador: digitos, 
letras y otros signos, incluidos los simbolos graficos. 

Character set Juego de caracteres 

Conjunto de todos los signos y simbolos disponibles en un ordenador o una impreso- 
ra. El hecho de que un ordenador tenga un simbolo determinado no implica que este 
sea reproducible en la impresora. 
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Character string Cadena literal 

Grupo de caracteres que pueden ser almacenados y tratados en bloque, v. g. una pa- 
labra o grupo de palabras. 



Chip Pastilla 

Termino popular, aunque incorrectamente utilizado, para designar un circuito inte- 
grado monolitico. La 'pastilla' es en realidad un trozo de silicio en el que se graba el 
circuito. 



Clock Reloj 

Sistema temporizador de referencia del ordenador que controla y sincroniza la secuen- 
cia de operaciones. Un reloj de tiempo real es el que mantiene la hora, fecha, etc. 



Code Codigo 

Aparte de otros significados, forma abreviada de referirse al 'codigo de maquina'. 

Cold start Arranque en frio 

Proceso de cargae initialization de un sistema operativo. El arranque en frio de CP/M 
se realiza cuando se ejecuta la orden |CPM de AMSDOS. 

Command Orden 

Instruccion de programa o instruccion directa de teclado. 

Compiler Compilador 

Un programa complejo que convierte programas completos escritos en un lenguaje de 
alto nivel, tal como BASIC, en codigos directamente utilizables por el microprocesa- 
dor, con el consiguiente incremento de la velocidad de ejecucion. 

Computer generations Generaciones de ordenadores 

Diversos hitos tecnologicos han delimitado las etapas de la evolution de la tecnologia 
informatica; los ordenadores fabricados con un nivel de sofisticacion similar forman 
una 'generation'. 
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Console mode Modo de consola 

Modo directo de CP/ M; en la pantalla aparece el mensaje A> para indicar que el sis- 
tema esta esperando que se teclee una orden interna o el nombre de un programa de 
ayuda. 

Corruption Corruption 

Destruction o alteration del contenido de un fichero o de la memoria, indeseada y 
posiblemente irremediable. 

CP/M 

Control Program for Microcomputers. Programa de control para microordenadores. 
Sistema operativo basado en disco, desarrollado por Digital Research, que proporcio- 
na un interfaz con el que utilizar una gran variedad de programas. 

CPU, Central Processing Unit UCP, Unidad central de proceso 

Circuito del sistema informatico que interpreta las instrucciones y hace que sean obe- 
decidas. En los microordenadores la UCP es el propio microprocesador. 

Cursor 

Simbolo movil que indica en que lugar de la pantalla aparecera el proximo caracter 
que se envie a ella. 

Cursor control keys Teclas de movimiento del cursor 

Teclas con las que se hace que el cursor se mueva por la pantalla. Frecuentemente se 
las utiliza tambien en los juegos graficos. 

Daisy-wheel printer Impresora de margarita 

Impresora que escribe con calidad de maquina de escribir. Los caracteres estan pre- 
formados, cada uno en un brazo de la 'margarita', y se los transfiere al papel al gol- 
pear el brazo con un martillo. 

Database Base de datos 

Coleccion de datos utilizable por el ordenador. 
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Data capture Captation de datos 

Recoleccion de datos enviados al ordenador desde fuentes externas. 

Debugging Depuration 

Proceso de detection y elimination de errores de los programas. 

Decimal notation Notation decimal 

Sistema decimal de numeration, de base 10, que utiliza los digitos del al 9. Es el 
sistema ordinario. 

Default Prescrito, implicito, por defecto 

Valor que el ordenador supone en ausencia de otra especificacion por parte del usua- 
rio. Por ejemplo, en CP/M la unidad de disco implicita es la A:. 

Delimiter 

Vease Separator. 

Diagnostic Diagnostico 

Mensaje emitido automaticamente por el ordenador para senalar e identificar un error 
de un programa. 



Digital 

Es el termino opuesto a 'analogico'. Describe la transition brusca entre dos estados 
de un proceso. 



Digitiser Digitalizador 

Metodo de conversion de information analogica en digital, o de representar variables 
analogicas en un ordenador. 
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Directory Directorio 

Section de un disco que contiene las resenas de los ficheros grabados en el. Lista del 
contenido de un disco. 



Disc, disk Disco 

Hoja de plastico circular, fina y plana, recubierta de material magnetosensible, que se 
utiliza como medio de almacenaje de la information. El disco esta incluido en una en- 
voltura protectora en la que hay una 'ventana' para la cabeza lectora. En el disco de 
3 pulgadas la ventana esta cubierta por un obturador metalico que se abre automatica- 
mente cuando se introduce el disco en la unidad. 



Disc drive Unidad de disco 

Mecanismo y circuitos electronicos con los que se mueve el disco para leer o grabar 
datos en el. 



Documentation Documentation 

Manuales suministrados con los ordenadores o los programas, en los que se explica 
su funcionamiento. 



DOS 

Programas que controlan todas las operaciones de la unidad de disco. 

Dot matrix Matriz de puntos 

Reticula rectangular de puntos con la que se puede visualizar cada caracter seleccio- 
nando los puntos adecuados. 

Double sided De doble cara 

Hace referenda a los discos en los que se puede almacenar information en ambas ca- 
ras. Una unidad de doble cara puede acceder a ambas caras del disco sin necesidad 
de extraer y darle la vuelta a este. 
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Dr. LOGO 

Version de LOGO elaborada por Digital Research. LOGO es un lenguaje de progra- 
macion caracterizado por sus 'graficos de tortuga'. 



Dumb terminal Terminal pasivo 

Terminal de ordenador que actua solamente como medio de entrada o salida, pero 
sin procesar la information. 



Edit Editar, corregir 

Corregir o modificar datos, programas o textos. 

Editor 

Un programa, generalmente grabado en la ROM del ordenador, que permite realizar 
el proceso de edition. 

EPROM 

Erasable Programmable Read only Memory. Memoria borrable y programable de 'solo 
lectura'. Similar a la PROM, pero tal que su contenido se puede borrar con luz ultra- 
violeta para luego grabar en ella un nuevo programa. Una EEPROM puede ser borra- 
da por medios electronicos. 

Expression Expresion 

Formula utilizada en un programa para realizar cierta operation con los datos. La pro- 
pia expresion indica normalmente la naturaleza de los datos que puede manejar. En 
Dr. LOGO una expresion consiste en el nombre de un procedimiento seguido de las 
entradas requeridas. 

Fifth generation computers Ordenadores de la quinta generacion 

Grandes ordenadores que estaran disponibles en el futuro y tendran, como caracteris- 
tica distintiva, la capacidad de programarse a si mismos utilizando las tecnicas de la 
inteligencia artificial. 
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File Fichero 

Coleccion de datos, generalmente grabada en cinta o diso. 

File name Nombre de fichero 

En Dr. LOGO el nombre de un fichero puede estar formado por un maximo de 8 ca- 
racteres alfanumericos. En CP/M se permiten otros tres caracteres, precedidos por un 
punto. 

Firmware 

Software contenido en ROM: un hibrido de software y hardware. 

Fixed-point number Numero en punto (coma) fijo 

Un numero que se representa, manipula y almacena con el punto decimal en una po- 
sition determinada. 

Floating-point number Numero en punto (coma) flotante 

Numero que se representa, manipula y almacena con el punto decimal en la position 
mas conveniente. 

Floppy disc 

Vease Disc. 

Flowchart Ordinograma 

Representation esquematica de la evolution de las acciones de un programa. 



Forth 

Lenguaje de programacion de alta velocidad. Tanto la velocidad como la complejidad 
estan a medio camino entre los lenguajes de alto nivel y el codigo de maquina. No es 
un lenguaje para principiantes. 
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Function key Tecla de funcion 

Tecla que tiene asignada una tarea especifica. 

Gate Puerta logica 

Las puertas logicas permiten el paso de datos cuando se cumplen ciertas condiciones. 
Hay muchos tipos de puertas logicas: OR, AND, XOR, etc. 

Graphics Graficos 

Dibujo de puntos, rectas, circunferencias, etc.; es decir, todo lo que aparece en la pan- 
talla que no sean 'caracteres'. 

Graphics character Caracter grafico 

Simbolo asignado a un caracter que es en si mismo un dibujo. 

Graphics cursor Cursor grafico 

Concepto similar al de 'cursor de texto', pero invisible y referido a la pantalla grafica. 

Graphics mode Modo grafico 

Los ordenadores mas antiguos tenian que ser puestos explicitamente en este modo 
para poder manejar graficos. En cambio, los ordenadores personales modernos pue- 
den mezclar textos con graficos. 

Handshaking Intercambio de indicativos y senates de control 

Secuencia de sefiales electronicas que inicia, comprueba y sincroniza el intercambio 
de datos entre un ordenador y un periferico o entre dos ordenadores. 

Hard copy Copia en papel 

Listado por impresora de un programa o un texto, o volcado en papel de la pantalla 
grafica. 
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Hardware 

Componentes electronicos o mecanicos de un sistema informatico: todo lo que tiene 
volumen y peso. 

Hexadecimal (HEX) 

Sistema numerico de base 16. Los niimeros hexadecimales se identifican en el CPC664 
por los prefijos & y &H. Por ejemplo, &FF=255 (decimal). (Vease la parte 1 del ca- 
pitulo 'Cuando usted guste ...') 

Hex file Fichero HEX 

Representation ASCII de un fichero de orden externo o de codigo de maquina. 

High-level language Lenguaje de alto nivel 

Lenguajes del tipo de BASIC, en los que las instrucciones son mas proximas al len- 
guaje ordinario. Son mas lentos que el codigo de maquina, pero mucho mas sencillos 
de entender y programar. 

IEEE-488 

Uno de los interfaces estandar para la conexion de dispositivos externos a un ordena- 
dor. Similar al Centronics, pero no totalmente compatible con el. 

Information technology Tecnologia de la informacion 

Todo lo relativo a la utilization de la electronica en el proceso de la informacion y 
las comunicaciones. 

Initialise Inicializar 

Poner en marcha un sistema. O dar valores concretos a variables antes de empezar la 
ejecucion del nucleo central de un programa; por ejemplo, dimensionar matrices, de- 
clarar tipos de variables, etc. 

Input Entrada 

Datos de todo tipo que entran en el ordenador procedentes del disco, del teclado, de 
una puerta RS-232, etc. 
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Instruction Instruction 

Orden que manda al ordenador que realice alguna operacidn o tarea. Un conjunto de 
instrucciones forma un programa. 



Instruction set Juego de instrucciones 

Conjunto de procesos logicos y matematicos fundamentals que puede realizar el mi- 
croprocesador. Toda instruction de un lenguaje de alto nivel (y tambien los mnemo- 
nicos de ensamblador) tiene que ser convertible a una instrucci6n o serie de instruc- 
ciones que la UCP pueda reconocer. 



Integer Entero 

Niimero sin parte decimal. 

Integrated circuit Circuito integrado 

Conjunto de componentes electronicos miniaturizados, grabados en una pastilla de si- 
licic (Vease tambien Chip.) 

Intelligent terminal Terminal inteligente 

Un terminal que, ademas de gestionar entradas y salidas para un ordenador central, 
puede realizar ciertas tareas de proceso de datos cuando el ordenador esta 'fuera de 
linea'. 

Interactive Interactivo 

Hace referenda a los programas que solicitan del usuario la introduction de informa- 
tion: desde el control de naves espaciales en juegos graficos hasta las respuestas en 
programas educativos. La action del usuario tiene efecto en 'tiempo real' sobre la evo- 
lution del programa. 

Interface Interfaz 

Via de entrada y salida del ordenador, tanto para las sefiales electricas como para las 
acciones y reacciones del usuario. En el CPC664, el teclado, la pantalla y las conexio- 
nes para perifericos. 
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Interpreter Interprete 

Una analogia mas entre las instrucciones de ordenador y los idiomas. Es el elemento 
del sistema operativo que interpreta el lenguaje de alto nivel y lo convierte a una for- 
ma utilizable por la UCP. 



I/O Entrada/Salida 

Input/ Output. Entrada/ Salida. 

Iteration Iteration 

Uno de los mecanismos basicos de la informatica. Consiste en la repetition de tareas, 
en las que generalmente se va modificando el valor de una variable, hasta que se cum- 
ple determinada condition. 

Joystick 

Dispositivo de entrada al ordenador que generalmente sustituye las teclas del cursor 
y hace que los juegos graficos sean mas faciles y rapidos de controlar. 



K 

Forma abreviada y aproximada del prefijo 'kilo' (1000). Representa un 'kilobyte', que 
en realidad es 1024 bytes. (1024 es la base del sistema binario, 2, elevada a la d6cima 
potencia.) 



Keyboard Teclado 

Matriz de interruptores alfanumericos a traves de la cual se introduce information en 
el ordenador. 



Keyword Palabra clave 

Palabra que un programa o lenguaje de programacion reserva para una funcion u or- 
den especifica. 
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Least significant bit Bit menos significative) 

En un numero binario, el bit de menor peso; es decir, el que esta mas a la derecha. 

Light pen Lapicero fotosensible 

Otro dispositivo de entrada al ordenador. 

Line number Numero de linea 

Los progreamas de BASIC y de algunos otros lenguajes tienen las instrucciones nu- 
meradas para indicar al ordenador el orden de ejecucion. 

LISP 

Acronimo de 'LISt Processor language' (lenguaje de proceso de listas). Otro lenguaje 
de alto nivel. 

Logic Logica 

Entre otras acepciones, conjunto de componentes electronicos que realizan las opera- 
ciones logicas elementales en las que en ultimo termino se basa el funcionamiento del 
ordenador. 

Logical device Dispositivo logico 

La representaci6n de un dispositivo puede no coincidir con su forma fisica. Por ejem- 
plo, el dispositivo logico LST de CP/M puede ser asignado a la puerta Centronics, 
pero tambien a la pantalla del monitor. 

LOGO 

Nombre de un lenguaje de programacion tornado de la palabra griega 'logos', que sig- 
nifica 'palabra'. LOGO ha sido disefiado para servir como ayuda en la ensefianza de 
la informatica elemental. 

Loop Bucle 

Section de un programa que se ejecuta reiteradamente hasta que se cumple determi- 
nada condition. 



A2/18 Glosario 



Low-level languaje Lenguaje de bajo nivel 

Por ejemplo, el lenguaje ensamblador. Un lenguaje en el que cada instruction corres- 
ponde a una instruction de codigo de maquina. 

LSI, Large Scale Integration Integration a gran escala 

Etapa avanzada del desarrollo de circuitos integrados, en la que incorporan miles de 
componentes electronicos en una sola pastilla de silicio. 

Machine code Codigo de maquina 

Lenguaje de programacion que es directamente comprensible y utilizable por el mi- 
croprocesador, ya que las instrucciones son sucesiones de 8 bits. 

Machine readable Accesible a la maquina 

Este termino hace referenda a datos e information que puedan ser introducidos di- 
rectamente en la maquina, sin necesidad de conversion. 

Man-machine interface Interfaz hombre-maquina 

Dispositivo que permite la interaction entre el usuario y el ordenador (teclado, soni- 
do, etc.) 

Matrix Matriz 

Disposition de los puntos con los que se forman los caracteres en la pantalla o en las 
impresoras de 'matriz de puntos'. En otra acepcion, variables que con un solo nombre 
pueden contener multiples valores, a los que se accede mediante los 'indices'. 

Memory Memoria 

Especie de 'aparcamiento' de la maquina, en la que esta almacena los programas y los 
datos. La memoria puede ser RAM (memoria de acceso aleatorio), en la que se puede 
esribir y leer, o ROM (memoria de 'solo lectura^, de la que solamente se puede leer. 

Memory map Mapa de memoria 

Esquema en que se indica que zonas de memoria estan dedicadas a las diversas fun- 
ciones: pantalla, sistema operativo, variables, etc. 
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Menu Menu 

Lista de opciones que se ofrece al usuario de un programa. 

Microprocessor Microprocesador 

Circuito integrado que controla el funcionamiento del ordenador. Recibe y ejecuta las 
instrucciones que le entrega el interprete de BASIC y controla todas las interfaces. 



Modem (Modulator/Demodulator) 

Modulador/demodulador, MODEM 

Dispositivo que conecta el ordenador a una linea telefonica o a una red de transmi- 
sion de la information. 



Monitor 

Pantalla en la que se visualizan los graficos, listados, mensajes, etc. Tambien el pro- 
grama convierte codigos de maquina en mnemonicos de ensamblador. 



MSB, Most Significant Bit Bit mas significativo, MSB 

En un numero binario, el bit de mayor peso; es decir, el que esta mas a la izquierda. 

Network Red 

Cuando se interconectan varios ordenadores para intercambiar programas y datos, via 
modem, cable, etc., se forma una 'red'. 

Nibble 

Medio byte, es decir, un numero binario de cuatro bits. 

Node Nodo 

Unidad de espacio de trabajo en LOGO. Generalmente un nodo consume 4 bytes de 
espacio de memoria. 
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Noise Ruido 

El sistema de sonido del CPC664 permite generar ruidos aleatorios para simular efec- 
tos sonoros tales como explosiones, disparos, etc. 



Numeric keypad Teclado numerico 

Grupo de teclas numericas destinadas a facilitar la introduction de numeros en el or- 
denador. En el caso del CPC664, estas teclas son ademas definibles por el usuario. 



OCR, Optical Character Recognition Lectura optica de caracteres 

Sistema de lectura automatica de caracteres escritos y de conversion a datos utiliza- 
bles por el ordenador. 



Octal 

Sistema de numeration de base 8 en que cada digito (del al 7) se presenta con tres 
digitos binarios. 



Off line Fuera de linea 

Situation en la que se encuentra un periferico cuando no esta activamente conectado 
al ordenador. 



On line En linea 

Termino opuesto a Off line/ Fuera de linea. 

Operating system Sistema operativo 

Programa que gestiona el manejo de la memoria, la ejecucion de programas, priori- 
dades, control de tiempos, etc. 

Output Salida 

Todo lo que sale del ordenador como resultado de algun proceso o calculo. 
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Overwrite Sobreescribir 

Borrar parte de la memoria, a veces involuntariamente, al escribir nuevos datos en ella. 

Paddle Empunadura 

Mando principal del joystick. 

Page zero Pagina cero 

Zona de memoria, generalmente entre las posiciones &0000 y &0100, en la que se al- 
macenan parametros esenciales del sistema operativo. 

Parallel interface Interfaz paralelo 

Sistema de conexion del que es ejemplo el interfaz para impresora del CPC664. Cada 
linea del bus de datos se conecta a la correspondiente patilla de la impresora. Los da- 
tos se transmiten en grupos simultaneos. Este metodo de transmision es mucho mas 
rapido que el que se consigue con un interfaz serie, en que los datos se envian uno 
tras otro, por una sola linea. 

Pascal 

Lenguaje estructurado de alto nivel que ha de ser compilado antes de su ejecucion y 
que, por consiguiente, es muy rapido. Es el lenguaje que habitualmente se estudia des- 
pues de BASIC. 

PEEK 

Funcion de BASIC que examina una position de memoria especificada e informa de 
su contenido. 

Peripheral Periferico 

Impresoras, modems, joysticks, magnetofonos, etc.; cualquier aparato que pueda ser 
conectado al ordenador para hacerlo mas util. 

Physical device Dispositivo fisico 

Dispositivo que realmente existe, representable por un dispositivo logico. 
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Pixel 

La menor area de la pantalla que puede ser controlada con independencia de las demas. 

Plotter Trazador automatico, plotter 

Impresora especial que dibuja con plumas, tanto caracteres como dibujos propiamen- 
te dichos. 

POKE 

Orden de BASIC que escribe un valor en una position de memoria especificada. 

Port Puerta 

Lugar especificamente direccionable de un interfaz para la entrada o salida de datos. 

Portability Adaptabilidad 

Caracteristica de un lenguaje o programa que hace facil su adaptation a otra maqui- 
na, generalmente como consecuencia de la compatibilidad del sistema operativo (v. g., 
el CP/ M de Digital Research). 

Primitives Primitivas 

Procedimientos, operaciones u 6rdenes en los que consiste Dr. LOGO. 

Printer Impresora 

Maquina que escribe en papel los datos enviados por el ordenador. 

Procedure Procedimiento 

Serie de expresiones o instrucciones que indican al ordenador como realizar una tarea. 
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Program Programa 

Conjunto de instrucciones que gobiernan el funcionamiento del ordenador para hacer 
que realice una tarea. Puede tratarse de una simple rutina en c6digo de maquina o de 
una aplicacion completa, tal como un paquete de contabilidad o un procesador de 
textos. 



Programming language Lenguaje de programacion 

Lenguaje en el que escribe un programa, consistente en un conjunto de reglas que in- 
dican c6mo se utilizan las palabras y los mimeros 



PROM 

Programmable Read Only Memory. Memoria programable de 'solo lectura'. Circuito 
integrado de memoria que, una vez grabado, ya no se puede borrar. (Vease tambien 
EPROM.) 



Prompt 'Incitador' 

Un corto mensaje o grupo de caractres que recuerda al lector que el ordenador esta 
esperando una entrada. Por ejemplo, en CP/M es >; en LOGO, ?. 



PSU, Power Supply Unit Fuente de alimentation 

Circuito que convierte la tensidn alterna de la red a una tensi6n continua adecuada 
para los circuitos del ordenador (y de los perifericos). 



QWERTY keyboard Teclado tipo QWERTY 

Teclado del tipo de las maquinas de escribir estandar. 



RAM 

Random Access Memory. Memoria de acceso aleatorio. Memoria de la que se puede 
leer y en la que se puede escribir en el curso normal de la ejecuci6n de un programa. 
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Random access Acceso aleatorio 

Termino que hace referenda a la posibilidad de leer o escribir datos en un disco en 
el orden que se desee. 



Random number Numero aleatorio 

Numero generado por el ordenador que no es ni repetible ni predecible. El CPC664 
genera una sucesi6n de numeros pseudoaleatorios. 



Raster scan Exploration de trama 

Sistema de 'escritura' en la pantalla, en que las imagenes se forman mediante lineas 
horizontales. 



R/O, Read only De 'solo lectura' 

Atributo de un disco, de un fichero o de una unidad de disco que impide la escritura 
y la modificaci6n de los datos. 



R/W, Read write De lectura/ escritura 

Atributo de un disco, de un fichero o de una unidad de disco que permits tanto la 
lectura como la escritura o la modification de los datos. 



Real number Numero real 

Numero que consta (o puede constar) de parte entera y parte decimal. 

Real time En tiempo real 

Efectos que ocurren en el momento presente, a diferencia de aquellos que solo se apre- 
cian cuando ha terminado el proceso que los provoco. 

Record Registro 

Grupo de bytes de un fichero. En CP/M los registros son de 128 bytes. 
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Recursion Recursividad 

Serie de etapas repetidas de un programa o una rutina, tales que cada una esta rela- 
cionada con la anterior. 



Refresh Renovation, refresco 

Actualization de la informacii6n, ya sea de la pantalla o de la memoria. No siempre 
es un proceso destructivo; puede tratarse de una confirmation de la situation actual. 



Register Registro 

Position de memoria transitoria de la UCP utilizada para almacenamiento provisio- 
nal de los datos. 



Remark Observation (REM) 

Instruction de un programa que el ordenador no ejecuta; sirve solamente para que el 
programador escriba anotaciones, o para escribir la fecha o numero de version del 
programa. 



Reserved word Palabra reservada 

Una palabra que tiene un significado especial para un programa, y que por consi- 
guiente no se puede utilizar fuera del contexto predefinido. Por ejemplo, BASIC no 
puede aceptar NEW como nombre de una variable, pues esa palabra esta reservada 
para otro proposito. 



Resolution Resolution 

La resolution es tanto mayor cuanto menor sea el tamano de los pixels. Da una idea 
de como de 'finos' pueden ser los graficos en un ordenador. 



Reverse Polish notation Notation polaca postfijada 

Metodo de escribir operaciones aritmeticas, adoptado por ciertos fabricantes de orde- 
nadores, en el que los operadores (+, -, *, /) se ponen despues de los operandos. 
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RF modulator Modulador de radiofrecuencia 

Metodo por el cual las senates de video del ordenador se codifican y transmiten a la 
entrada de antena de un televisor. 



ROM 

Read Only Memory. Memoria de 'solo lectura'. Memoria que no se puede borrar. 

Routine Rutina 

Una parte del programa que realiza una tarea especifica. Un subprograma contenido 
en un programa mas general, o que se ha escrito de forma independiente y puede ser 
incorporado a otros programas. 

RS232C 

Un sistema concreto estandarizado para los interfacces de comunicacion en serie. Los 
dispositivos que estan en los dos extremos de la linea deben estar configurados de 
acuerdo con las normas RS232. 

Screen editor Editor de pantalla 

Editor de textos o de programas que permite llevar el cursor a cualquier lugar de la 
pantalla para modificar su contenido. 

Scrolling Desplazamiento vertical, rodadura 

Termino que describe la forma en que la pantalla 'rueda' hacia arriba cuando se ha 
llegado a la ultima linea y se necesita una nueva. 

Sector 

Bloque de datos en un disco. El sistema de AMSTRAD esta basado en sectores de 
512 bytes. 

Separator Separador 

Signo que marca el limite entre palabras reservadas y otros elementos del programa. 
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Serial interface Interfaz serie 

Este termino hace referenda normalmente al estandar RS232, aunque existen otros 
metodos de transmision en serie de datos. 



Simulation Simulacion 

Tecnica de emulation de los procesos reales en un ordenador; por ejemplo, simulacion 
de vuelo, de la conduction de automoviles, etc. 



Singled sided De una sola cara 

Hace referencia al tipo de disco en el que solo se pueden grabar datos en una cara. 

Software Programacion, software 

Conjunto de programas que hacen que el ordenador funcione; en disco, cinta, ROM, 
etc. 

Software engineering Ingenieria de programacion 

Tecnicas de programacion consideradas desde un punto de vista cientifico, para dis- 
tinguirlas de las no organizadas o arbitrarias. 

Sound generator Generador de sonido 

Parte de un ordenador (circuitos o programas) que genera el sonido y el ruido. 

Speech recognition Reconocimiento de voz 

Conversion de la palabra hablada en instrucciones reconocibles por el ordenador. 

Speech synthesis Sintesis de voz 

Generation de voces simuladas mediante una combinaci6n de circuitos y programas. 
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Spread sheet Hoja electronica 

Un programa que permite introducir datos num6ricos para disponerlos en filas y co- 
lumnas y para hacer con ellos manipulaciones aritmeticas. Al modificar uno de los da- 
tos se rehacen los calculos para actualizar los resultados por filas y columnas. 

Sprite Agente grafico movil, sprite 

Diseno grafico que se puede mover libremente por la pantalla, generado por software 
o por hardware de forma tal que pueda aparecer y desaparecer de modo aparentemen- 
te aleatorio. 

Stack PWa 

Area de memoria utilizada para almacenar datos provisionalmente y organizada de 
forma que el ultimo dato depositado en ella es el primero que se recupera. 

Stream Canal 

Via de salida del ordenador; por ejemplo, la pantalla, la impresora o el disco. 

String Cadena literal 

Un dato formado por caracteres cualesquiera que el ordenador no puede tratar como 
numerico. Puede constar solamente de digitos, pero el ordenador no lo considera como 
numero mientras no se lo convierta a numero mediante la instruction adecuada. 

Structured programming Programacion estructurada 

Tecnica de programacion logica y premeditada con la que se escriben programas que 
fluyen de principio a fin en etapas bien diferenciadas. 

Sub-routine 

Vease Routine, rutina. 

Syntax error Error de sintaxis 

Cuando se infringen las reglas sobre la utilization de palabras clave y variables, BA- 
SIC emite este mensaje. 
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System tracks Pist as del sistema 

Pistas reservadas en el disco para el sistema CP/M. 

Terminal 

Teclado de entrada con pantalla, o bien con teletipo de salida. 

TPA, Transient Program Area Area para programas transitorios 

Area de memoria que empieza en &0100, en la que en CP/M se almacenan los pro- 
gramas de usuario y los datos por estos generados. 

Track Pj sta 

Las pistas son coronas circulares del disco. Cada una se divide en un numero fijo de 
sectores. Las pistas y sectores se inscriben en areas especificas del disco en el proceso 
de initialization. 

Transient program Programa transitorio 

Un programa de ayuda de CP/M, tal como FILECOPY, que puede ser cargado en la 
TPA sin mas que escribir su nombre en el teclado. 

Truth table labia de verdad 

El resultado de toda operacion logica puede ser 'verdadero' o 'falso' (para el ordena- 
dor, 1 o 0). La tabla de verdad da todos los resultados posibles de la operacion en 
funcion del valor de los operandos. 

Turtle Tortuga 

Un simbolo con forma de punta de flecha que funciona como cursor grafico en la pan- 
talla grafica de Dr. LOGO. 

Turtle graphics Graficos de tortuga 

Imagen que deja la tortuga de Dr. LOGO al moverse por la pantalla. 
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UDK, User Defined Keys Teclas definidas por el usuario 

En el CPC664 hay 32 teclas a las que se pueden asignar tareas concretas, que el or- 
denador realiza en cuanto el usuario las pulsa. 



Utility Programa de ayuda 

Un programa completo con el que se realiza una operation comiin a varias aplicacio- 
nes; por ejemplo, ordenar alfabeticamente o copiar ficheros. 



Variable 

Un dato o grupo de datos puede ser identificado en un programa mediante un nom- 
bre; su valor puede variar como consecuencia de la ejecucion del programa. 



Warm star Arranque en caliente 

Es el que se realiza cuando se pulsa [CTRL]C en CP/M. Reinicializa el subsistema 
de disco y devuelve el control al modo directo de consola de CP/M. 



Wildcard character Simbolo comodin 

Este termino hace referencia a los simbolos * y ?. Dr. LOGO solamente admite el ?. 
El * representa cierto niimero de simbolos ?. Al mencionar nombres de ficheros, se 
pueden construir nombres ambiguos poniendo simbolos ? en lugar de caracteres. 



Write protection Proteccion contra escritura 

Un mecanismo que impide reescribir en un disco o fichero. Un disco protegido contra 
escritura es un disco de 'solo lectura'. 
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Apendice 3 

Que usted lo disfrute ... 



Tele tenis 

Todo empezo con este, pero sigue siendo divertido. Para dos jugadores, o para uno 
contra el ordenador. Teclado o joystick(s). 

10 ' TELE TENIS por DAVID RADISIC 

20 ' copyright <c) AMSOFT 1985 

30 ' 

40 DEFINT a-z 

50 comp=l 

60 ENV l,=li,20,=9,5000 

70 MODE 1:INK 0,10:BORDER 10: INK 1,26: INK 2, 18: INK 3,0 

80 GOSUB 710 

90 GOSUB 150 

100 GOSUB 330 

110 GOSUB 420 

120 LOCATE 13,1: PRINT USING "*»#*»*» "Jtanteolj 

130 LOCATE 35,1: PRINT USING"#*Mttt "5tanteo2j 

140 GOTO 100 

150 PEN 2 

160 x<l)=3:y<l)=5 

170 x (2) =37: y (2) =22 

180 borde*=CHR*(233) : borde2*=STRING* (2, 207) 

190 LOCATE 1,3:PRINT STRING* (39, borde*) : PRINT STRING*(39, 

borde*) 
200 FOR i=l TO 19 

210 PRINT borde2*;TAB(33) ;borde2* 
220 NEXT 

230 PRINT STRING*(39, borde*) :PRINT STRING* (39, borde*) ; 
240 WINDOW #1,3,37,5,23 
250 CLSttl 

260 SYMBOL 240,0,60,126,126,126,126,60,0 
270 raq*=" ! "+CHR* (8) +CHR*< 10) + H ! " 
280 bor*= M "+CHR*(8)+CHR*(10)+" " 
290 pel*=CHR*(240) 
300 PEN 3 
310 LOCATE 2,l:PRINT"Jugador l: 0";:LOCATE 24,1:PRINT H 

Jugador 2: 0" 
320 RETURN 

330 n=INT(RND*2) :CLS#l:punto=0 
340 PEN y 
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TENIS cent. 

350 FOR i=l TO 2: LOCATE x ( i ), y ( i ): PRINT raq*;:NEXT 

360 ON n GOTO 390 

370 xb=2l:d>. = l 

3S0 GOTO 400 

390 xb=19:dx=-l 

400 yb=12:dy=INT(RND*3)-l 

410 RETURN 

420 GOSUB 600 

430 oxb=xb: Dyb=yb 

440 GOSUB 500 

450 IF nota>0 THEN SOUND 129, nota, 50, 15, 1 

460 LOCATE oxb, oyb: PRINT" " ; 

470 LOCATE xb,yb:PRINT pel* 

480 IF punto=0 THEN 420 

490 RETURN 

500 LOCATE xb + dx,yb-t-dy:ch*=COPYCHR*(»0) 

510 nota=0 

520 IF ch*=" " THEN xb=xb+dx : yb=yb=yb+dy: RETURN 

530 IF ch*="!" THEN dx=2-dx-2: dy=INT <RND*3) -1 : nota=200: RE 

TURN 
540 IF ch*=LEFT*(borde2*, i) THEN 570 
550 IF ch*=borde* THEN dy=2-dy^2: nota=250 
560 RETURN 

570 IF dx>0 THEN tar ( teol=tanteol +1 ELSE tanteo2=tanteo2+l 
580 punto=l : nota=2000 
590 RETURN 
600 p(l)=(INKEY(69) >=0) + ( INKEY (72) >=0)+ABS( (INKEY(71) >=0) 

+(INKEY(73) >-0) )*2 
610 IF comp=l THEN p (2) =ABS (y <2)<yb) *2+ <y (2) >yb) : GOTO 630 
620 p (2)= (INKEY (4) >=0) +( INKEY (48) >=0)+ABS( (INKEY (5) >=0)+( 

INKEY<49) >=0) )*2 
630 PEN 3 
640 FOR i=l TO 2 

650 LOCATE x ( i ) , y ( i ) +p ( i ) : ch*=COPYCHR* (80) 
660 IF ch*=" " THEN LOCATE x ( i ), y ( i ): PRINT bor*; : y < i ) =y ( i 

)+ROUND(p(i) 12.) 
6^0 LOCATE x(i) ,y(i) : PRINT raq*; 
630 NEXT 
690 PEN 1 
700 RETURN 
710 PEN 2:PRINT:PRINT TABQ5) "Pi ng-Pong" : PRINT TABU5)"-- 



720 PEN 3: PRINT: PRINT TAB (14) "Para mover raquetasl 

730 print:print:pen i 

740 PRINT" Jugador 1 Jugador 2 Direccion" : PRINT 
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TENIS cont. 

750 PRINT" A 6 ARRIBA" 

760 PRINT" Z 3 ABAJO": PRINT 

770 PEN 3:PRINT:PRINT TAB(14)"o con joysticks" 
780 print:print:print:print 

790 PEN 2 

800 PRINT TAB(7) "Elija <1> o <2> jugadores" 

810 i*=INKEY*:IF i*<>"l" AND i*<>"2" THEN 810 

820 IF i*="l" THEN comp=l ELSE comp=0 

830 MODE l: RETURN 



Esgrima electrico 

jTrate de 'tocar' a su oponente! Para dos jugadores. Teclado o joysticks. 

10 ' ESGRIMA ELECTRICO por ALEXANDER MARTIN 

20 ' copyright (c) AMSOFT 1985 

30 ' 

40 DEFINT a-z 

50 MODE 

60 GOSUB 980 

70 GOSUB 1370 

80 GOSUB 270 

90 GOSUB 1520 

100 GOSUB 1370 

110 GOSUB 1270 

120 ' 

130 ' 

140 REM empezar 

150 IF termina THEN GOTO 100 

160 GOSUB 240 

170 FRAME: IF pldir THEN GOSUB 570 ELSE FRAMElFRAME 

180 FRAME: IF p2dir THEN GOSUB 620 ELSE FRAME:FRAME 

190 IF plsa=-l THEN GOSUB 670 

200 IF p2sa=-l THEN GOSUB 720 

210 GOTO 140 

220 ' 

230 ' 

240 IF j THEN 380 ELSE 480 

250 ' 

260 ' 

270 CLSIPEN 6 

280 PRINT:PRINT" ELIJA CONTROL" 

290 PRINT:PRINT:PRINT:PRINT" pulse J/T [ENTER]" 
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ESGi 

300 
310 
320 
330 
340 
350 
360 
370 
3S0 
390 
400 
410 

420 

430 
440 
450 
460 
470 
480 
490 
500 

510 

520 
530 
540 
550 
560 
570 

580 
590 
600 
610 
620 

630 
640 
650 
660 
670 
680 



;'IMA cant. 

LOCATE 4,10:PRINT"JOYSTICKS";TAB(4) 5 "0 TECLAS" 

LOCATE 12, 10: IF j THEN PRINT"*" : ELSE PRINT" " 

LOCATE 12, 11: IF j THEN PRINT" " : ELSE PRINT"*" 

IF N0T(INKEY(45) ) THEN j=-l 

IF N0T<INKEY(37) ) THEN j =0 

IF N0T(INKEY(18) ) THEN RETURN ELSE 310 



pl=JOY(0) :p2=J0Y(l) 

pldir=(pl AND l)*-l+(pl AND 2)*0.5 

p2dir=(p2 AND l)*-l+<p2 AND 2)*0.5 

IF pi AND 16 THEN plsa=pl5a-l : IF plsa=-l THEN AFTER 1 

5 GOSUB 770 

IF p2 AND 16 THEN p2sa=p2sa-l : IF p2sa=-l THEN AFTER 1 

5 GOSUB 770 

IF plsa THEN pldir=0 

IF p2sa THEN p2dir=0 

RETURN 



p2dir=( <INKEY(4)=0)*l)+( ( INKEY (5) =0) *-l ) 

pldir=( (INKEY(69)=0)*l)+( ( INKEY (71 ) =0) *-l ) 

IF INKEY(63>=0 THEN plsa=plsa-l : IF plsa=-l THEN AFTER 

15 GOSUB 770 
IF INKEY ( 10) =0 THEN p2sa=p2sa-l : IF p2sa=-l THEN AFTER 

15 GOSUB 770 
IF plsa THEN pldir=0 
IF p2sa THEN p2dir=0 
RETURN 



pt=plwp+pldir: IF pt>25 OR pt<6 THEN RETURN ELSE plwp= 

Pt 

pldir=0 

PEN l:LOCATE 3, plwp : CLS#3: PRINT CHR* (209) ;: RETURN 



pt=p2wp+p2dir:lF pt>25 OR pt<6 THEN RETURN ELSE p2wp = 

Pt 

p2dir=0 

PEN 2: LOCATE 18, p2wp: CLS#5: PRINT CHR* (21 1 );: RETURN 



PAPER tt4,4:WIND0W #4, 4, 17, pi wp , plwp : CLS#4: FRAME: FRAME 
PAPER #4,0:CLS#4 



A3/4 



Que usted lo disfrute ... 



ESGRIMA cont. 

690 GOTO 570 

700 ' 

710 ' 

720 PAPER «6, 5: WINDOW «6, 4, 17, p2wp , p2wp: CLSH6: FRAME: FRAME 

730 PAPER «6,0:CLStt6 

740 GOTO 620 

750 ' 

760 ' 

770 pwpe=(plwp=p2wp) : IF plsa AND N0T(p2sa) AND pwpe THEN 

plsc=pl5c+l: SOUND 132, 120, 10,0, 1 ,0: PRINTttl , a* (pise ) ; 
: IF plsc=9 THEN 860 
780 IF p2sa AND NOT (plsa) AND pwpe THEN p2sc=p2sc+i : SOUND 

132,100, 10,0, l,0:PRINT«2,a*(p2sc) 5 : IF p2sc=9 THEN 86 

790 IF plsa THEN SOUND 132,40,70,0,1,1 
800 IF p2sa THEN SOUND 132,56,70,0,1,1 
810 plsa=0 
320 p2sa=0 
830 RETURN 
840 ' 
850 ' 
860 PEN 6 

870 LOCATE 2, 10: PRINVFIN DE LA PARTIDA" 
880 IF pisc=9 THEN INK 1,2,20: INK 2,0 ELSE INK 2,6, 17: INK 

1,0 
890 SOUND 129, 1000,0, 12, 3: SOUND 130,900,0,12,3 
900 WHILE INKEY*<>"":WEND 
910 t!=TIME: WHILE t ! +2000>TIME: WEND 
920 WHILE INKEY*=" " : WEND 
930 CLS 

940 termina=-i 
950 RETURN 
960 ' 
970 ' 

980 a*<0)=-111101101101111" 
990 a*<i) ="001001001001001" 
1000 a* (2) ="111001111100111" 
1010 a* (3) ="1110011 11001111" 
1020 a* (4) ="100100101 11 1001- 
1030 a*(5)="111100111001111" 
1040 a* (6) ="111 100111101111" 
1050 a*(7)="111001001010010" 
1060 a*(8)="111101111101111" 
1070 a* (9) ="1111011 11001001" 
1080 FOR n=0 TO 9 



Que usted lo disfrute ... A3/5 



ESGRIMA cont. 

1090 tiempo=LEN(a*(n> > 

1100 FOR n2=l TO tiempo 

1110 IF MID*(a*(n> ,n2, 1>="1"THEN MID* (a* ( n) , n2, 1 ) =CHR* ( 14 

3) ELSE MID*(a*(n) ,n2, 1)=CHR*(32) 
1120 NEXT n2,n 
1130 ' 
1140 ' 

1150 b*="ESGRIMA ELECTRICO" 

1160 c*=CHR*<32)+CHR*<164>+" Alexander Martin" 
1170 ENV 1,=9,2000:ENT -1,6,3,1 

1180 ENV 2,127,0,0,127,0,0,127,0,0,127,0,0,127,0,0 
1190 ENV 3, =9, 9000 
1200 ' 
1210 ' 

1220 BORDER 
1230 INK 0,12: PEN #4,1: PEN #6, 2: PEN #1,1: PEN #2, 2: PAPER # 

1,3: PAPER #2, 3: PEN #0,6 
1240 RETURN ' de preparar- CDnstantes 
1250 ' 
1260 ' 
1270 INK 0,12: INK 1,2: INK 2,6: INK 3, 13: INK 4,20: INK 5,17: 

INK 6,20 
1280 WINDOW #3,3,3,6,25:WIND0W #5,18,18,6,25 
1290 WINDOW #1,3,5, 1,5:WIND0W #2, 16, 18, 1 , 5: WINDOW #7,1,20 

, 1,5: PAPER #7,3 
1300 CLS:CLS#7:PRINT#l,a*(0) ; : PRINT#2, a* (0) ; : pl5C=0: p2sc= 

0:plwp=5:p2wp=24:pldir=l :p2dir=l 
1310 GOSUB 570:GOSUB 620 

1320 SOUND 1, 1000,0, 12, 2:S0UND 2,900,0,12,2 
1330 plsa=0:p2sa=0: termina=0 
1340 RETURN 
1350 ' 
1360 ' 
1370 CLS 
1380 PEN 7 

1390 FOR n=l TO LEN(b*) 
1400 LOCATE 1+n, 10 
1410 FOR n2=LEN(b*) TO n STEP-1 
1420 PRINT MID*(b*,n2, 1) 
1430 LOCATE 1+n, 10 
1440 SOUND 135,20*n2,5, 12,2, 1 
1450 NEXT n2,n 
1460 SOUND 135,100,0,13,3,1,20 

1470 pen 6:print:print:print:print c* 

1480 FOR n=l TO 5000: NEXT 
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ESGRIMA cont. 

1490 RETURN 

1500 ' 

1510 ' 

1520 IF j THEM RETURN 

1530 CLS 

1540 LOCATE 6,5 

1550 PRINT"CONTROLES" 

1560 PRINT 

1570 PRINT"JUGADOR 1 JUGADOR 2" 

1580 PRINT 

1590 PRINT" A arriba 6" 

1600 PRINT" Z abajo 3" 

1610 PRINT" X disparo 7" 

1620 t !=TIME:WHILE t ! +1000>TIME: WEND 

1630 RETURN 



Ponton 

La timba en casa. Para un jugador contra el ordenador. Solo teclado. 

1984 



10 


'PONTON 


20 


•copyright (c) AMSOFT 


30 


* 


40 : 


INK 0,21: INK 1,0: INK 


50 1 


ENV 1,7,2,1 


60 MODE 1 


70 ; 


/c=2:cc=2 


80 ases=0 


90 ( 


:ases=0 


100 


lases=0 


110 


s=0 


120 


t=0 


130 


DIM palo*(4) 


140 


palD*(l)=CHR*(226) 


150 


palD*(2)=CHR*(229) 


160 


palo*(3)=CHR*(228) 


170 


palo*(4)=CHR*<227) 


180 


CLS 


190 


DIM bar(52) 


200 


FOR x=l TO 52 


210 


bar (x)=0 


220 


NEXT x 


230 


1 
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PONTON cont. 

240 'Dar dos cartas a cada jugador 

250 ' 

260 LOCATE 8,3 

270 PRINT"JUGAD0R";SPC<14) 5 "BANCA" 

280 LOCATE 7,5 

290 GOSUB 930 

300 5=5++ 

310 IF +=11 THEN ases=ases+l 

320 LOCATE 27,5 

330 GOSUB 930 

340 t=t++ 

350 IF +=11 THEN cases=cases+l 

360 LOCATE 7,6 

370 GOSUB 930 

380 s=s++ 

390 IF 5=21 THEN 860 

400 IF +=11 THEN ases=ases+l 

410 IF s=22 THEN ases=ases-l 

420 IF 5=22 THEN 5=12 

430 ' 

440 'Captar opcion carta (c) o planta (p) 

450 ' 

460 LOCATE 8, 12: PRINT"CARTA (c) TE PLANTAS (p)":FOR z=l 
TO 50:3: NEXT: LOCATE 8, 12: PRINT SPC(26):F0R z = l TO 500 
:NEXT 
470 x*=LOWER*<INKEY*) : IF x*<>"c" AND x*<>"p" THEN 460 
480 IF x*="p" THEN LOCATE 10, 12: PRINT: GOTO 680 
490 LOCATE 7,yc+5 
500 yc=yc+l 
510 GOSUB 930 
520 5=5++ 

530 IF +=11 THEN ases=ases+l 
540 ' 

550 'Comprcbar tantec y ases 
560 ' 

570 IF s<22 THEN 460 
580 IF ases=0 THEN 620 
590 ases=a5e5-l 
600 s=s-10 
610 GOTO 570 
620 LOCATE 12,19 
630 PRINT-ESTAS ARRUINADO" 

640 PRINT.'LOCATE 12, 21 : PRINT"OTRA PARTIDA (S/N)?" 
650 x*=LOWER*(INKEY*) : IF x*<>"s" AND x*<>"n" THEN 650 
660 IF x*="s" THEN RUN 
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PONTON cont. 

670 END 

680 LOCATE 27,6 

690 GOSUB 930 

700 t = t + -f 

710 IF -f = 1 1 THEN cases=cases+l 

720 IF t=17 OR t=18 OR t=19 OR t=20 OR t=21 THEN GOTO 880 

730 cc=cc+l 

740 LOCATE 27,cc+4 

750 GOSUB 930 

760 t=t + -f 

770 IF +=11 THEN :ases=cases+l 

780 IF t>6 AND t<12 AND lases>0 THEN t=t+10:GOTO 880 

790 IF t<21 THEN 720 

800 IF t=21 THEN 880 

810 IF cases=0 THEN 850 

820 cases=ca5es-l : lases=lases+l 

830 t=t-10 

840 GOTO 790 

850 LOCATE 12, 19 

860 PRINT-TU GANAS" 

870 GOTO 640 

880 LOCATE 12,19 

890 IF t<s THEN 850 

900 PR I NT "LA BANC A GANA" 

910 GOTO 640 

920 ' 

930 'Dar carta 

940 ' 

950 carta=INT(RND(l)*52+l) 

960 IF bar (carta) =1 THEN GOTO 950 

970 bar (carta) =1 

980 -f=carta-13*INT(carta/13) 

990 IF -f=0 THEN -f = 13 

1000 IF -f = l OR -f>10 THEN GOTO 1090 

1010 FOR z=l TO 1000: 2=2+1: NEXT 

1020 IF -f = 10 THEN PRINT -f ; " "5 

1030 IF +<10 THEN PRINT" "-F" "J 

1040 IF -f>10 THEN -f=0 

1050 IF carta>26 THEN PEN 3 ELSE PEN 1 

1060 SOUND 1,0,0,0,1, ,l:PRINT palo* ( INT < (carta-1 ) /13) +1 ) 

1070 PEN 1 

1080 RETURN 

1090 FOR z=l TO 1000: z=z+l: NEXT 

1100 IF -f = 11 THEN PRINT" J "; 

1110 IF -f = 12 THEN PRINT" Q "; 
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PONTON cont. 

1120 IF -f = 13 THEN PRINT" K 

1130 IF fOl THEN GOTO 1040 

1140 -f = 1 1 

1150 PRINT" A " ; 

1160 GOTO 1060 



Bombardero 

Una variation sobre un tema clasico. Para un jugador contra el ordenador. Solo 
teclado. 

10 'BOMBARDERO por DAVE TOWN 

20 'copyright (c) AMSOFT 1984 

30 ' 

40 MODE 1:CLS:INK 0,0:BORDER 0: INK 1,18:INK 2,6:INK 3,4:1 

NK 5,15:INK 6.2.-INK 7,24:INK 8,8:INK 9,26:INK 10, 10: IN 

K 11,20:INK 12,12:INK 13,16:INK 14,14:INK 15:21 
50 SYMBOL AFTER 240: SYMBOL 241 , 8^40, k60, ^70, tc7F , lc7F , fccEF, &7 

, 8<0 : SYMBOL 242 , &0 , &32 , k7A , kFE , feFA , &F2 , &E0 , KdQF 
60 tantec=0:ma.xi=0:avi*=CHR*(241> +CHR*(242) : x=2: y=2: cae=0 

:a=2:b=2 
70 GOSUB 480 
80 CL3 
90 PEN 2:L0CATE 1 , 15: INPUT"E1 i j a nivel: (AS) a 5 (PRINC 

IPIANTE) ", nivel 
100 IF nivel<0 OR nivel >5 THEN GOTO 90 
110 ni vel=ni vel +10 
120 LOCATE 1,15:PRINT CHR* ( 18) ;: LOCATE 1 , 15: INPUT"E1 i j a v 

elocidad: (MAX) a 100 (MIN) ",vel 
130 IF vel>100 OR vel<0 GOTO 120 
140 ' 

150 'Edi+icios 
160 ' 

170 MODE 0:FOR base=5 TO 15:F0R altura=21 TO INT(RND(1)*8 
+nivel) STEP-l:LOCATE base, altura: PEN base-2:PRINT CH 
R*(143)+CHR*(8)+CHR*(11)+CHR*(244) ; : NEXT: NEXT 
180 PLOT 0,20, 4: DRAW 640,20,4 
190 LOCATE 1,25: PEN 2: PRINT"PUNTOS" ; tanteo; : LOCATE 13,25: 

PRINT"MAX";maxi; 
200 ' 

210 'JuegD 
220 ' 
230 LOCATE x-l,y: PRINT" "I 



A3/10 Que usted lo disfrute 



BOMBARDERO cant. 

240 PEN l.'LOCATE x,y:PRINT avi*;:PEN 2 

250 IF y=21 AND x = 15 THEN GOTO 290: ELSE GOTO 340 

260 ' 

270 'Aterriza 

280 ' 

290 FOR c=0 TO 1000: NEXT 

300 tanteo=tanteo+100- (ni vel*2) : ni vel=ni vel -1 : x=2: y=2:a=2 

:b=2: cae=0 
310 IF nivel<10 THEN ni vel=10: vel=vel -20 
320 IF vel<0 THEN vel=0 
330 GOTO 150 
340 FOR c=0 TO vel: NEXT 
350 x = x + l 
360 IF x=18 THEN LOCATE x-l,y:PRINT CHR* ( 18) ; : x=2: y=y+l : L 

OCATE x,y:PEN l:PRINT avi*;:PEN 2 
370 a*=INKEY*:lF a*=" " AND cae=0 THEN cae=l : b=y+2: a=x 
380 IF y=21 THEN cae=0 
390 IF cae=l THEN LOCATE a,b:PRINT CHR* (252) ;: LOCATE a,b- 

l: PRINT" ";:b=b+l:IF b>21 THEN LOCATE a, b: PRINT" ";:L 

OCATE a,b-l:PRINT" ";: LOCATE a,b-l:PRINT" ":a=0:b=0:c 

ae=0: SOUND 3,4000,10,12,0,0,10 
400 ga= ( a-0 . 5 ) *32 : gb=400- ( b#l 6 ) : bomba=TEST ( ga , gb ) 
410 IF bomba>0 THEN GOTO 670 

420 gx=( (x+1.5)#32) : gy=408- (y*16) : choque=TEST (gx, gy ) 
430 IF choque>0 THEN GOTO 570 
440 GOTO 230 
450 ' 

460 'Instrucciones 
470 ' 
4S0 LOCATE 1,2:PEN 1 : PRINT"Usted esta pilotando urn avion 

sobre una ciudad desierta y tiene que pasar sobre los 
edi+icios para at errizar y repos- tar. Su avion s 

e mueve de izquierda a derecha. " ; :PRINT 
490 PRINT: PRINT"A1 llegar a la derecha, el avion vuelve a 
salir por la izquierda, pero MAS BAJO. Dispone de un 

numero lirnitado de bombas y puede hacerlas caer sobre 
los edi-fici- cios pulsando la BARRA ESPACIADORA. " ; : 

PRINT 
500 PRINT: PRINT"Cada vez que aterriza, sube la altura d 

e los edi-ficios y la velocidad. ";: PRINT: PRINT: PRINT"U 

NA VEZ DISPARADA UNA BOMBA.YA NO PUEDE DISPARAR OTRA 

MIENTRAS NO HAYA EXPLOSIO-NADO LA PRIMERA!!!": 
510 PEN 2:L0CATE 1 , 24: FRINT: PRINT"Pulse una tecla para em 

pezar. " 5 
520 a*=INKEY$:IF a*="" GOTO 520 
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530 RETURN 

540 ' 

550 'Calisian 

560 ' 

570 LOCATE x-l,y:PRINT CHR* (32) +CHR* (32) +CHR* (32) +CHR* (25 

3)+CHR*(8)+CHR*(238)+CHR*(8) ; 
580 FOR t=l TO 10ISOUND 7, 4000, 5, 15,0, 0, 5: PEN t:PRINT CHR 

*(253) +CHR*<8) +CHR*(238) +CHR*<8) +CHR*(32) +CHR*(8) ; : FO 

R tm=0 TO 50: NEXT: NEXT: PEN 2 
590 CLSILOCATE 1 , 5: PRINT"Ha conseguido" i tanteoi "puntos. " 
600 IF tanteo>maxi THEN max i=tanteo: LOCATE 1 , 8: PRINT"BATI 

EL RECORD! ! "5 
610 tanteo=0: LOCATE 1 , 12: PRINT"Pulse V para volver a empe 

zar" ; 
620 a*=INKEY*:IF a*="v" OR a*="V" GOTO 630 ELSE GOTO 620 
630 PEN l.-MODE 1 : x=2: y=2: a=2: b=2: GOTO 90 
640 ' 

e>50 'Edificio bombardeadD 
660 ' 
670 LOCATE a, b-1 : PRINT" " +CHR* (8) ; : PEN 4:FOR tr = l TO INT( 

RND(1)*3) +1: tan teo=tantea+5: SOUND 3,4000,10,12,0,0,10 

:LOCATE a,b:FOR t=0 TO 4:PRINT CHR*(253) +CHR* (8) +CHR* 

(32) +CHR*(8) i :NEXT:b=b+l 
680 IF b=24 THEN b=b-l 
690 NEXT 
700 LOCATE 6,24:PRINT tanteoj : cae=0: a=x : b=y : GOTO 230 



Amthello 

El juego de la reflexion. Trate de rodear y capturar los cuadrados de su oponente sin 
dejar los suyos al descubierto. Para un jugador contra el ordenador. Solo teclado. 

10 'AMTHELLO por M.J. GRIBBINS 

20 'copyright (c) AMSOFT 1984 

30 ' 

40 BORDER 14 

50 CLEAR 

60 MODE l:PEN 0: PAPER l:CLS 

70 INK 0,0:INK 1,14:INK 2,18:INK 3,26 

80 LOCATE 2,3!PEN 3: PRINT" A" : LOCATE 3, 4: PRINT"M" : LOCATE 

4,5:PRINT"T":L0CATE 5, 6: PRINT "H" 
90 LOCATE 6,7:PRINT"E":L0CATE 7, 8: PRINT"L" : LOCATE 8,9:PRI 

NT"L":LOCATE 9, 10: PRINT"0" 
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100 WINDOW #1,2,39,22,25:PAPER ttl , 1 : PEN #1,0:CLS#1 

110 PEN 

120 LOCATE #1,5, 1:PRINT#1, "LAS NEGRAS SIEMPRE EMPIEZAN" 

130 LOCATE #1,4,3:PRINT#1, "ELIJA BLANCAS (B) NEGRAS <N) 

II 

140 b*=INKEY*:IF b*="» THEN 140 

150 IF b*="B" OR b*="b" THEN q%=3: n%=0: GOTO 210 

160 IF b*="N" OR b$="n" THEN q%=0: n%=3: GOTO 210 

170 CLS#l:LOCATE #1,4,3 

180 PRIMT#1," SOLO BLANCAS NEGRAS" 

190 FOR t=0 TO 1000: NEXT t 

200 GOTO 140 

210 DIM c%<10,10) ,p%<9,9) ,cl%<8) ,c2%<8) ,cx%<9) ,cy%<9) 

220 il%=2: jl%=2: i2%=7:j2%=7 

230 FOR i%=0 TO 9 

240 c%<i%,o%)=6:c%(0, i%)=6 

250 c%(9, i%)=6:c%(i%,9)=6 

260 NEXT i% 

270 FOR i%=l TO 8 

280 READ cl%<i%) ,c2%<i%) 

290 FOR j%=l TO 8 

300 READ p%( i%, j%) 

310 c%(i%,j%)=6 

320 NEXT j%:NEXT i% 

330 c%(4,4)=3:c%<4,5)=0:c%<5,4)=0:c%(5,5)=3 

340 FOR k%=l TO 58 

350 READ ar%,br%,cr%,dr% 

360 PLOT ar%,br%:DRAW cr%, dr%,0 

370 NEXT k% 

380 GOSUB 1460 

390 IF q%=3 GOTO 770 

400 CLS#l: INPUT #1," ELIJA FILA " ; e% 

410 IF e%<l OR e%>8 GOTO 400 

420 LOCATE #1,1,3: INPUT #1," ELIJA COLUMNA " ; d% 

430 IF d%<l OR d%>8 GOTO 420 

440 IF c%<d%,e%)=6 GOTO 480 

450 CLS#l: LOCATE #1 , 5, 2: PRINT#1 , "ESE CUADRADO YA ESTA OCU 

PADO! " 
460 FOR t=l TO 1000: NEXT t 
470 GOTO 400 
480 PLOT 270+<30*d%) ,70+<30*e%) : DRAW 290+ <30*d%) , 89+ <30*e 

%) ,q% 
490 PLOT 290+<30*d%) ,70+<30*e%) : DRAW 270+ <30*d%) , 89+ <30*e 

%) ,q% 
500 GOTO 540 
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510 FOR m%=0 TO 19 STEP 2: PLOT 270+ <30*d%) , 70+m%+ <30*e%) 

520 DRAW 290+<30*d%) , 70+m%+ <30*e%) ,6: NEXT m% 

530 GOTO 400 

540 vrx%=0 

550 FOR k%=l TO 8 

560 vr%=0:c3%=d%:c4%=e% 

570 c3%=c3%+cl%(k%) :c4%=c4%+c2%<k%) 

580 IF C%(c3%,c4%)=n% GOTO 590 ELSE 600 

590 vr%=vr%+l:GOTO 570 

600 IF C%(c3%,c4%)=6 GOTO 610 ELSE 620 

610 NEXT k%:GOTO 670 

620 IF vr%=0 GOTO 610 ELSE 630 

630 vrx%=vrx%+vr% 

640 c3%=c3%-cl%(k%) :c4%=c4%-c2%<k%) 

650 IF c%(c3%,c4%)=6 GOTO 610 ELSE 660 

660 c%<c3%,c4%)=q%:G0T0 640 

670 IF vrx%=0 GOTO 680 ELSE 710 

680 CLS**l:PRINT**l^.'ESO NO ES POSIBLE" 

690 FOR t=l TO 1000: NEXT t 

700 GOTO 510 

710 e%=e%:d%=d%: vrx%=vrx% 

720 CLS**l:PRINT#l, "LISTED VA A LA LINEA " j e% 

730 PRINTttl," Y A LA COLUMNA " ; d% 

740 LOCATE #1 , 2, 4: PRINT#1 , "CON LO QUE CONSIGUE "ivrx%J" C 

UADRADO(S) " 
750 c%(d%,e%)=q%:GOSUB 1710 
760 GOSUB 1460 
770 CLSttl: LOCATE #1 , 10, 2: PRINT#1 , "AHORA ME TOCA A MI ... 

780 p%=0:vrx%=0:vry%=0 

790 IF il%*jl%=l AND i2%*j2%=64 GOTO 860 
800 FOR k%=2 TO 7 
810 IF c%(2,k%)<?6 THEN il%=l 
820 IF c%<7,k%)<>6 THEN i2%=8 
830 IF c%<k%,2)<>6 THEN j 1%=1 
840 IF c%<k%,7)<>6 THEN j 2%=8 
850 NEXT k% 
860 FOR i%=il% TO i2% 
870 FOR j%=j 1% TO j2% 
880 IF c%(i%,j%)=6 GOTO 1030 
890 NEXT j%:NEXT i% 
900 IF p%>0 THEN 1000 
910 IF pas%=l GOTO 920 ELSE 940 

920 CLS**l:PRINT#l,"BLOQUEADO! YO TAMBIEN TENGO QUE PASAR. 
FIN DE LA PART I DA" 
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930 FOR t=l TO 1000: NEXT t:GOTO 1550 

940 CLSttl: LOCATE ttl ,18, 2: PRINTttl , "TENGO QUE PASAR" 

950 GOSUB 2720 

960 IF pas%=l GOTO 970 ELSE 990 

970 CLSttl : PRINTttl, "BLOQUEADO! USTED TAMBIEN TIENE QUE 

PASAR. FIN DE LA PARTIDA. " 
975 RETURN 

980 FOR t=l TO 1000: NEXT t:GOTO 1550 
990 GOTO 400 

1000 IF lc%=0 THEN lc%=l: RANDOMIZE lc%: r 1%=RND < lc%) 
1010 cxl%=cx%(r 1%) :cr2%=cy%irl%) 
1020 GOTO 1220 
1030 vrx%=0 
1040 FOR k%=l TO 8 
1050 vr%=0:c3%=i%:c4%=j% 
1060 c3%=c3%+cl%<k%) :c4%=c4%+c2%<k%) 
1070 IF c%<c3%,c4%)=q% GOTO 1080 ELSE 1090 
1080 vr%=vr%+l:GOTO 1060 

1090 IF c%<c3%,c4%)=6 GOTO 1100 ELSE 1110 
1100 NEXT U%:GOTO 1130 
1110 IF vr%=o% GOTO 1100 ELSE 1120 
1120 vrx%=vrx%+vr%:GOTO 1100 
1130 IF vrx%=0 GOTO 890 
1140 IF p% <i%, j%Kp% GOTO 890 
1150 IF p%(i%,j%)>p% GOTO 1160 ELSE 1170 
1160 p%=p%(i%, j%) :vry%=vrx%: lc%=0: cx%<0) =i%: cy%<0) =j%: GOT 

890 
1170 IF vry%>vrx% GOTO 890 
1180 IF vry%<vrx% GOTO 1190 ELSE 1200 
1190 lc%=0:vry%=vrx%:cx%<0)=i%:cy%(0)=j%:GOTO 890 
1200 lc%=lc%+l:cx%(lc%)=i%:cy%(lc%)=j% 
1210 GOTO 890 

1220 cx2%=cx2%:cxl%=cxl%:vry%=vry% 
1230 CLSttl : PRINTttl, "YO VOY A LA FILA "icx2% 
1240 PRINTttl," Y A LA COLUMNA ";cxl% 
1250 LOCATE ttl , 1 , 4: PRINTttl , "CON LO QUE CONSIGO "ivry%;" C 

UADRADO(S) " 
1260 PLOT 270+<30*cxl%) , 70+ (30*cx2%) : DRAW 290+ <30*cxl%) , 8 

9+(30*cx2%) ,n% 
1270 PLOT 290+<30*cxl%) , 70+ (30*cx2%) : DRAW 270+ (30*cxl%) , 8 

9+(30*cx2%) ,n% 
1280 FOR t=l TO 1000: NEXT t 
1290 FOR k%=l TO 8 
1300 vr%=0:c3%=cxl%:c4%=cx2% 
1310 c3%=c3%+cl%(U%) :c4%=c4%+c2%(k%) 
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1320 IF c%(c3%,c4%)=q% GOTO 1330 ELSE 1340 

1330 vr%=vr%+l:GOTO 1310 

1340 IF c%(c3%,c4%)=6 GOTO 1350 ELSE 1360 

1350 NEXT k%:GOTO 1400 

1360 IF vr%=0 GOTO 1350 

1370 c3%=c3%-cl%(k%) :c4%=c4%-c2%(k%) 

1380 IF c%(c3%,c4%)=6 GOTO 1350 

1390 c%(c3%,c4%)=n%:G0T0 1370 

1400 c%(cxl%, cx2%)=n% 

1410 GOSUB 2720 

1420 GOSUB 1460 

1430 IF pas%=l GOTO 1440 ELSE 1450 

1440 CLS#l:PRINT#l, " USTED TIENE QUE PASAR" : FOR t=l TO 

1000: NEXT t.'GOTO 770 
1450 GOTO 400 
1460 FOR i%=l TO 8 
1470 FOR j%=l TO 8 
1480 FOR m%=l TO 19 STEP 2 

1490 z%=270+<30#i%) :h%=»70+<30*j%):w%=h%+m% 
1500 PLOT z%,w%:DRAW z%+20,w%, c%(i%, j%) 
1510 NEXT m%:NEXT j%:NEXT i% 
1520 x%=x%+l 
1530 IF x%=61 GOTO 1550 
1540 RETURN 
1550 cq%=0:cn%=0 
1560 FOR i%=l TO 8 
1570 FOR j%=l TO 8 

1580 IF c%(i%,j%)=q% THEN cq%=cq%+l 
1590 IF c%(i%,j%)=n% THEN cn%=cn%+l 
1600 NEXT j%:NEXT i% 
1610 IF cq%>cn% GOTO 1680 
1620 IF cq%=cn% GOTO 1630 ELSE 1650 
1630 CLSttllLOCATE #1 , 25, 2: PRINTK1 , "BLOQUEADO" 
1640 END 
1650 CLS*»l:LOCATE *»l,5,l:PRINTttl, "USTED TIENE ";cq%J" CUA 

DRADOS. YO TENGO "icn% 
1660 LOCATE ttl , 1 1 , 3: PRINTttl , " YO HE GANADO ... ! ! ! " 
1670 END 
1680 CLS*»l:LOCATE ttl , 5, 1 : PRINTttl , "USTED TIENE ";cq%;" CUA 

DRADOS. YO TENGO "Jcn% 

1690 LOCATE #1 , 5, 3: PRINTttl , "MUY BIEN. USTED HA GANADO ... 
iii" 

1700 END 

1710 IF c%(2,2)=q% AND (c%(3,l)=n% OR c%(l,3)=n%) GOTO 17 
20 ELSE 1730 
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1720 pX<3, D-l:pX(l,3)-l 

1730 IF cX(7,7>«qX AND (cX(8,6)=r»X OR cX(A,8)»nX) GOTO 17 

40 ELSE 1750 
1740 p%(8,6)»l:p%(6,8)=l 
1750 IF cX(2,7)»qX AND (cX(l,6)=nX OR c%(3 F 8)=n%) GOTO 17 

40 ELSE 1770 
1760 pX(l,6)=*l:pX(3,8)=l 
1770 IF cX<7,2)=qX AND (cX(6,l)=nX OR cX(8,3>=nX) GOTO 17 

80 ELSE 1790 
1780 pX(6,l)=l:pX(8 f 3)-l 

1790 IF dX»l OR d%=8 OR eX»l OR e%=8 GOTO 1820 
1800 IF cxlX=l OR cxlX=8 OR cx2X=l OR cx2X«8 GOTO 1820 
1810 RETURN 

1820 FOR jX=l TO 8 STEP 7 
1830 FOR 1X=2 TO 7 

1840 IF cX<iX,jX)=nX GOTO 1850 ELSE 1860 
1850 pX(iX+l, jX)»2l:pX(iX-l f jX>=21 
1860 IF c%(j%,i%)=n% GOTO 1870 ELSE 1880 
1870 p%(j%, i%+l)=2l:p%(j%, iX-l>=21 
1880 NEXT i% 
1890 FOR i%=2 TO 7 

1900 IF c%(i%, jX)=qX GOTO 1910 ELSE 1920 
1910 pX(iX+l, JX)«2:pX(iX-l,JX)»2 
1920 IF cX(jX,iX)«qX GOTO 1930 ELSE 1940 
1930 p%(j%, i%+l)=2:p%(j%, i%-l)«2 
1940 NEXT i%:NEXT j% 

l 950 p%(i,2)«i:p%(i,7)=i:p%(2,l)*i:p%(7,i)-l 

1960 pX(2,8)»l:p%(7,8)=l:p%(8,2)*l:p%(8,7)=l 

1970 FOR i%=2 TO 7 

1980 IF c%(l,i%-l)=q% AND c% ( 1 , i%+l ) =q% THEN pX(l,i%)=25 

1990 IF c%(8, i%-l)=q% AND c%(8, iX+1 ) =q% THEN pX(8,iX)=25 

2000 IF cX(iX-l,l)=qX AND cX( iX+1 , 1 ) =qX THEN pX(iX,l)=25 

2010 IF cX(iX-l,8)=qX AND cX( iX+1 , 8) =qX THEN pX(iX,8)=25 

2020 NEXT IX 

2030 FOR jX=l TO 8 STEP 7 

2040 FOR iX=4 TO 8 

2050 IF cX(jX,iX)OnX GOTO 2140 

2060 icX=iX-l:IF cX(jX,icX)=6 GOTO 2140 

2070 IF cX(j%, icX)=qX GOTO 2080 ELSE 2090 

2080 icX=icX-l:GOTO 2070 

2090 IF cX(jX,icX)=6 GOTO 2110 

2100 GOTO 2140 

2110 IF icX=0 GOTO 2140 

2120 IF cX(j%, iX+l)=qX AND cX ( j X, icX-1 ) =6 GOTO 2140 

2130 pX(jX, icX)=26 
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2140 IF c%(i%,j%)<>n% GOTO 2230 

2150 ic%=i%-l:lF c%(ic%,j%)=6 GOTO 2230 

2160 IF c%(ic%, j%)=q% GOTO 2170 ELSE 2180 

2170 ic%=ic%-l:GOTO 2160 

2180 IF c%(ic%,j%)=6 GOTO 2200 

2190 GOTO 2230 

2200 IF ic%=0 GOTO 2230 

2210 IF c%(i%+l, j%)=q% AND c%< i c%-l , j %) =6 GOTO 2230 

2220 p%(ic%, j%)=26 

2230 NEXT i% 

2240 FOR i%=l TO 5 

2250 IF c%<j%,i%)On% GOTO 2340 

2260 ic%=i%+l:lF c% < j %, ic%) =6 GOTO 2340 

2270 IF c%(j%, ic%)=q% GOTO 2280 ELSE 2290 

2280 ic%=ic%+l:GOTO 2270 

2290 IF c%(j%, ic%)=6 GOTO 2310 

2300 GOTO 2340 

2310 IF ic%=9 GOTO 2340 

2320 IF c%(j%, i%-l)=q% AND c% < j %, ic%+l ) =6 GOTO 2340 

2330 p%(,j%, ic%)=26 

2340 IF c%(i%,j%)On% GOTO 2430 

2350 ic%=i%+l."IF c%(ic%,j%)=6 GOTO 2430 

2360 IF c%(ic%, j%)=q% GOTO 2370 ELSE 2380 

2370 ic%=ic%+l:GOTO 2360 

2380 IF c%(ic%,j%)=6 GOTO 2400 

2390 GOTO 2430 

2400 IF ic%=9 GOTO 2430 

2410 IF c%(i%-l, j%)=q% AND c%< ic%+l , j%) =6 GOTO 2430 

2420 p%(ic%, j%)=26 

2430 NEXT i%:NEXT j% 

2440 IF c%(l,l)=n% GOTO 2450 ELSE 2460 

2450 FOR i%=2 TO 6: p% ( 1 , i%) =20: p% ( i%, 1 ) =20: NEXT i% 

2460 IF c%(l,8)=n% GOTO 2470 ELSE 2480 

2470 FOR i%=2 TO 6: p% ( i%, 3) =20: p%( 1 , 9-i%) =20: NEXT i% 

2480 IF c%(8,i)=n% GOTO 2490 ELSE 2500 

2490 FOR i%=2 TO 6: p%(9- i%, 1 ) =20: p% (8, i%) =20: NEXT i% 

2500 IF c%(8,8)=r.% GOTO 2510 ELSE 2520 

2510 FOR i%=3 TO 7: p% ( i%, 8) =20: p% (8, i%) =20: NEXT i% 

2520 IF c%(l,l)<>6 THEN p%(2,2)=5 

2530 IF c%(l,8)<>6 THEN p%(2,7)=5 

2540 IF c%(8,l)<>6 THEN p%(7,2)=5 

2550 IF c%(8,8)<>6 THEN p%(7,7)=5 

2560 p%(l, l)=30:p%(l,8)=30:p%(8, 1 ) =30: p% ( 8, 8) =30 

2570 FOR i%=3 TO 6 

2580 IF c%(l,i%)=n% THEN p%(2,i%)=4 
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2590 IF c%<8,i%)=n% THEN p%<7,i%)=4 

260.0 IF c%(i%,l)=n% THEN p%(i%,2)=4 

2610 IF c%<i%,8)=n% THEN p%<i%,7)=4 

2620 NEXT i% 

2630 IF c%(7,l)=q% AND c%(4,l)=n% AND c%(6,l)=6 AND c%(5, 

1)=6 THEN p%(6,l)=26 
2640 IF c%<l,7)=q% AND c%(l,4)=n% AND c%(l,6)=6 AND c% < 1 , 

5) =6 THEN p%(l,6)=26 
2650 IF c%(2,l)=q% AND c%(5,l)=n% AND c%(3,l)=6 AND c%(4, 

1)=6 THEN p%(3, 1)=26 
2660 IF c%(l,2)=q% AND c%(l,5)=n% AND c%(l,3)=6 AND c%(l, 

4) =6 THEN p%(l,3)=26 
2670 IF c%(8,2)=q% AND c%(8,5)=n% AND c%(8,3)=6 AND c%(8, 

4) =6 THEN p%(8,3)=26 
2680 IF c%(2,8)=q% AND c%(5,8)=n% AND c%(3,8)=6 AND c%<4, 

8)=6 THEN p%(3,8)=26 
2690 IF c%(8,7)=q% AND c%(8,4)=n% AND c%<8,5)=6 AND c%<8, 

6)=6 THEN p%(8,6)=26 
2700 IF c%<7,8)=q% AND c%(4,8)=n% AND c%<5,8)=6 AND c%(6, 

8)=6 THEN p%(6,-8)=26 
2710 RETURN 
2720 pas%=0 
2730 FOR i%=l TO 8 
2740 FOR j%=l TO 8 
2750 IF c%(i%,j%)=q% GOTO 2780 
2760 NEXT j%:NEXT i% 
2770 pas%=l: RETURN 
2780 FOR k%=l TO 8 
2790 vr%=0:c3%=i%:c4%=j% 
2800 c3%=c3%+cl%<k%) :c4%=c4%+c2%(k%) 
2810 IF c3%<l OR c3%>8 GOTO 2820 ELSE 2830 
2820 NEXT k%:GOTO 2760 

2830 IF c4%<1 OR c4%>8 GOTO 2820 ELSE 2840 
2840 IF c%(c3%,c4%)=n% GOTO 2850 ELSE 2860 
2850 vr%=vr%+l:GOTO 2800 

2860 IF c%(c3%,c4%)=q% GOTO 2820 ELSE 2870 
2870 IF vr%>0 THEN RETURN 
2880 GOTO 2820 

2890 DATA 1,0,30,1,20,10,10,20,1,30,1,1,1,1,3 
2900 DATA 3,3,3,1,1,0,1,20,3,5,5,5,5,3,20,-1,1,10,3,5 
2910 DATA 0,0,5,3,10,-1,0,10,3,5,0,0,5,3,10,-1 
2920 DATA -1,20,3,5,5,5,5,3,20,0,-1,1,1,3,3,3,3,1,1,1,-1, 

30, 1 , 20, 10, 10, 20, 1 , 30 
2930 DATA 263,100,263,120,270,130,255,130,255,130,255,140 

,255,140,270,140 
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2940 DATA 270,140,270,150,270,150,255,150,255,160,270,160 

,270, 160,270,180 
2950 DATA 270,180,255,180,270,170,255,170,270,190,270,210 

,270,200,255,200 
2960 DATA 255,200,255,210,255,220,270,220,270,220,270,230 

,270,230,255,230 
2970 DATA 255,230,255,240,255,240,270,240,255,250,270,250 

,270,250,270,260 
2980 DATA 270,260,255,260,255,250,255,270,270,280,270,300 

,270,300,255,300 
2990 DATA 255,310,255,330,255,330,270,330,270,330,270,310 

,270,310,255,310 
3000 DATA 255,320,270,320 
3010 DATA 310,355,310,375,350,355,335,355,335,355,335,365 

,335,365,350,365 
3020 DATA 350,365,350,375,350,375,335,375,365,355,380,355 

,380,355,380,375 
3030 DATA 380,375,365,375,380,365,365,365,410,355,410,375 

,410,365,395,365 
3040 DATA 395,365,395,375,425,355,440,355,440,355,440,365 

,440,365,425,365 
3050 DATA 425,365,425,375,425,375,440,375,455,375,455,355 

,455,355,470,355 
3060 DATA 470,355,470,365,470,365,455,365,485,375,500,375 

,500,375,500,355 
3070 DATA 515,375,515,355,515,355,530,355,530,355,530,375 

,530,375,515,375 
3080 DATA 515,365,530,365 



Guante bianco 

L16vese las joyas del sefior conde. Muchos obstaculos con los que tropezar, y cuidado 
con el perro. Para un jugador contra el ordenador. Teclado o joystick. 

10 'GUANTE BLANCO por DAVID RADISIC 

20 'copyright (c) AMSOFT 1985 

30 ' 

40 MODE 0:INK 0,0:BORDER 0:INK 1,26: INK 2, 15: INK 3,25 

50 INK 4,14:INK 5,24,12:INK 6,0:INK 7,0:INK 8,0:PAPER #1, 

7 
60 retardo=200 

70 DIM objx (5,20) ,objy (5,20) , joyax<5,20) , joyay<5,20) 
80 GOSUB 380 
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6UANTE cant. 

90 GOSUE 72.0 

100 pausa=200: GOSUB 340 

110 IF joyas=0 THEN GOSUB 970 

120 PEN 4 

130 FOR i=10 TO 12 

140 LOCATE 15, i:PRINT"BOTIN" J 

150 NEXT 

160 PAPER 0:CLS#2: PAPER 8 

170 GOSUB 1170 

180 GOSUB 1230 

190 GOSUB 1370 

200 GOSUB 1510 

210 IF rm=0 THEN GOSUB 1900 

220 IF muerto=0 THEN 160 

230 pausa=100: GOSUB 340 

240 PAPER 0:CLS:PEN 1 

250 LOCATE 4, 3: PRINVQuiere j ugar " ; 

260 LOCATE 4, 5: PRINT"otr a vez?" ; 

270 PEN 5IL0CATE 9, 7: PRINT"S/N" ; 

280 i*=UPPER*(INKEY*) : IF i*<>"S" AND i*<>"N" THEN 280 

290 IF i*="N" THEN MODE 2: PEN 1 : STOP 

300 RUN 

310 IF perro=l THEN RETURN 

320 per ro=l : perrox=minx (rm) : perroy=miny (rm) 

330 RETURN 

340 FOR bucle=l TO pausa 

350 FRAME 

360 NEXT 

370 RETURN 

380 rm=l:xp=6:yp=4:hombre*=CHR*(224) : per ro=0: robado=0 

390 SYMBOL 240,8,8,3,8,8,8,8,8 

400 SYMBOL 241,0,0,0,0,255,0,0,0 

410 SYMBOL 242,0,0,0,0,15,8,8,8 

420 SYMBOL 243,0,0,0,0,248,8,8,8 

430 SYMBOL 244,8,8,8,8,248,0,0,0 

440 SYMBOL 245,8,8,8,8,15,0,0,0 

450 SYMBOL 246,8,12,13,14,12,12,8,8 

460 SYMBOL 247,8,12,12,14,13,12,8,8 

470 SYMBOL 248,8,24,38,56,24,24,8,8 

480 SYMBOL 249,8,24,24,56,83,24,3,8 

490 SYMBOL 250,0,0,255,129,129,129,255,0 

500 SYMBOL 251,28,20,20,20,20,20,20,28 

510 SYMBOL 252,0,0,255,255,255,255,255,0 

520 SYMBOL 253,28,28,28,28,28,28,28,28 

530 SYMBOL 255,195,165,60,126,90,60,36,24 
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540 ENT 1, 12,-4, 1 

550 ENT -2, =1000, 60, =3000, 40 

560 ENV 1,10,1,5,2,-4,1,2,-1,20 

570 vent*(l)=STRING*(2,250) : vent* (2) =CHR* (251 ) +CHR* (8) +CH 

R*(10) +CHR*(251)+CHR*<8)+CHR*(10)+CHR*(251) 
580 puer t a* ( 1 ) =STRI NG* ( 2 , 252 ) : puerta$ ( 2 ) =CHR* ( 253 ) + CHR* ( 8 

) + CHR* ( 10) +CHR* (253) +CHR* ( 8) +CHR* ( 10) +CHR* (253) 
590 conm* (1,0)=CHR* (246) :conm*(l, 1)=CHR*(247) 
600 conm*(2,0)=CHR*(248) :conm$(2, 1)=CHR*(249) 
610 joya*=CHR*(144) : obj *=CHR* (233) : perro*=CHR*<255) 
620 gol*=CHR*<246) +CHR* (248) +CHR* (247) +CHR* (249) +CHR*(252 

) +CHR*<253) +CHR*(250) + CHR* (251 ) + j oya*+obj $+perro$ 
630 RESTORE 3010 
640 FOR i=l TO 5 

650 READ mi nx ( i ) ,mi ny ( i ) , maxx ( i ) ,maxy ( i ) 
660 READ d i r ( i , 1 ) , d i r ( i , 2 ) , d i r ( i , 3 ) , d i r ( i , 4 ) 
670 NEXT 

680 WINDOW ttl , minx Irm) -1 , maxx (rm) +1 ,miny (rm) -1 ,maxy (rm) +1 
690 WINDOW #2,1,14,1,25 
700 CLSHl: PAPER #0,8 
710 RETURN 
720 ORIGIN 50,50 
730 INK 6,24, 12 
740 RESTORE 3060 
750 GOSUB 1280 
760 LOCATE 3,20 
770 PEN 5:PRINT">"; 
780 PEN l:PRINT"Rutas de escape"; 
790 pen 5:print m <"; :pen i 
800 locate 10,2:print"en"; 

810 pausa=300: GOSUB 340 

820 CLSILOCATE 1,3: INK 6,0 

830 PEN l:PRINT hombre*; " Usted, el ladron" :PRINT 

840 PEN 2.-PRINT LEFT* (puerta* ( 1 ) , 1 ) ; LEFT* (puer ta* (2) , 1 ) ; " 

Puertas": PRINT 
850 PEN 3IPRINT cDnm* ( 1 , 0) ; conm* (2,0) ; " Luces apagadas" 
860 PEN 3:PRINT conm* ( 1 , 1 ) ; conm* (2, 1 ) ; " Luces encendidas" 

: PRINT 
870 PEN 4IPRINT LEFT* ( vent* ( 1 ) , 1 ) ; LEFT* ( vent* (2) , 1 ) 5 " Ven 

tanas": PRINT 
380 PEN 5:PRINT joya*;" Piedras preciosas" : PRINT 
890 PAPER l:PEN 0: PRINT obj*;" Obstaculos " : PEN 1 : PAPER 

0:PRINT 
900 PEN l: PRINT perro*;" El perro" 
910 PEN 5:PRINT:PRINT.'PRINT 
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92.0 PRINT" Utilice j oyst ick" : PRINT" o tec las de cursor" 

930 aux=REMAIN(l) 

940 AFTER retardo*4,l GOSUB 340 

950 RETURN 

960 ' 

970 'Generar j oyas y obstaculos 

980 ' 

990 FOR hab=l TO 5 

1000 j oyar = INT <RND*8) +2: obj r = INT (RND*10) + 5 

1010 minx=minx(hab) :miny=miny (hab) : maxx=maxx (hab) : maxy=ma 

xy(hab) 
1020 FOR i=l TO j oyar 
1030 x=INT(RND#(maxx-minx+l) ) +minx 
1040 y=INT (RND#(maxy-miny+l ) ) +miny 
1050 j oyax (hab, i ) =x: j oyay (hab, i ) =y 
1060 j oyas=j oyas+1 
1070 NEXT i 
1080 FOR i=l TO objr 
1090 x=INT<RMD*(maxx-minx+l) ) +minx 
1100 y=INT <RND#(maxy-miny+l ) +miny 
1110 obj x (hab, i ) =x: obj y (hab, i ) =y 
1120 NEXT i 

1130 j oyas (hab) =j oyar: obj (hab)=objr 
1140 NEXT hab 
1150 CLS 
1160 RETURN 

1170 ON rm GOTO 1180,1190,1200,1210,1220 
1180 RESTORE 2670: RETURN 
1190 RESTORE 2740: RETURN 
1200 RESTORE 2810: RETURN 
1210 RESTORE 2880: RETURN 
1220 RESTORE 2960: RETURN 
1230 PAPER 0:READ rm*: PAPER 8 
1240 WINDOW ttl ,minx (rm) -l,maxx (rm) +1 ,miny (rm) -1 ,maxy (rm) + 

l:CLS»l 
1250 PEN l: LOCATE 1,1: PRINT SPACE* (19); 
1260 LOCATE 1 , 1 : PRINT"Habi tac ion : "Jrm*; 
1270 IF luces(rm) THEN INK 7, 10: INK 8,10 ELSE INK 7,0: INK 

8,0 
1280 READ a*: IF a*="FIN" THEN RETURN 
1290 IF a*= ,, D" THEN 2180 
1300 IF a*="W" THEN 2260 

1310 IF a*="L" THEN GRAPHICS PEN 1 : GOTO 2340 
1320 IF a*="S" THEN 2420 
1330 IF a*="F" THEN GRAPHICS PEN 6: GOTO 2340 
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1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
14S0 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 

1650 
1660 
1670 

1680 
1690 
1700 
1710 
1720 
1730 

1740 
1 750 



IF 
IF 
IF 
IF 



PRINT"###ERROR ***"J 
STOP 

' Dibuj ar j oyas/obj etos 

PEN 6 

FOR i=l TO obj (rm) 

LOCATE obj x (rm, i ) , obj y (rm, i ) 

PRINT obj«» 

NEXT 

PEN 5 

FOR i=l TO joyas(rra) 

LOCATE joyax (rm, i ) , joyay (rn, i ) 

PRINT joya*» 

NEXT 

PEN l: LOCATE xp,yp: PRINT ho»bre*» 

RETURN 

x-f=0:yf=0!PEN 1 

IF INKEY <0)<>-l OR INKEY <72)< >-l THEN 

INKEY(2)<>-1 OR INKEY <73)< >-l THEN 

INKEY(8)<>-1 OR INKEY(74)<>-1 THEN 

INKEY(1)<>-1 OR INKEY(75)<>-1 THEN 

x-f=0 AND yf=0 THEN 1630 
LOCATE xp + x-f , yp + y-f : ht*=COPYCHR* (#0) 
IF ASC(ht*)>239 AND ASC(ht*)<246 THEN 
IF ht*<>" " THEN 1660 
LOCATE xp.yp: PRINT" " ; 

PAPER 0: LOCATE 15, 5." PRINT" ";: PAPER 8 
xp = xp + x-f:yp=yp + yf 
LOCATE xp,yp: PRINT hombre*; 
IF perro>0 THEN perro=perro MOD 2+1: IF perro=2 THEN 

2550 
GOTO 1510 

gol=INSTR(gol*,ht*) : char=ASC <MID*(gol», gol , 1) ) 
ON gol GOTO 1690,1690,1690,1690,1750,1750,1850,1900, 
1970,2090,2650 
GOTO 1600 

IF gol>2 AND gol<5 THEN car=car-l 
IF gol<3 THEN car=car+l 

PEN 3:L0CATE xp + x-f , yp + y-f : PRINT CHR*(car); 
luces (rm)=luces (rm) XOR 1 
IF luces(rm) THEN INK 7, 10: INK 8,10 ELSE INK 7,0: INK 

8,0 
GOTO 1510 
IF x-f<>0 AND yf<>0 THEN 1630 



y*»-l 
yf-1 
x-f = -l 
xf = l 



1510 
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1760 IF x-f<0 THEN dir=4 ELSE IF x-f >0 THEN dir=3 

1770 IF yf<0 THEN dir = l ELSE IF y-f >0 THEN dir=2 

1780 IF dir <rm,dir)=-l THEN 1630 ELSE rm=dir (rm, dir) 

1790 IF perro>0 THEN GOSUB 310 

1800 IF dir=l THEN xp=6: yp=maxy (rm) 

1810 IF dir=2 THEN xp=6: yp=miny < rm) 

1820 IF dir=3 THEN xp=minx (rm) : yp=13 

1830 IF dir=4 THEN xp=maxx ( rm) : yp=13 

1840 RETURN 

1850 IF xp>5 AND xp<8 THEN 1880 

1860 IF xp<6 THEN dir=4 ELSE dir»3 

1870 GOTO 1780 

1880 IF yp>13 THEN dir=2 ELSE dir«l 

18V0 GOTO 1780 

1900 PAPER 0:CLS:PEN 1 

1910 LOCATE 3,3:PRINT"Usted ha e«capado"; 

1920 LOCATE 8, 3: PRINT"con" J 

1930 IF joyas=robado THEN LOCATE 8, 7: PRINT"TODAS las" » ELS 

E LOCATE 8,7 
1940 PRINT USING " #*"»robado» 
1950 PEN 5IL0CATE 8, 9: PRINT" j oyas" J 
1960 muerto=l: RETURN 

1970 LOCATE xp, yp : PRINT" " J : xp=xp+xf : yp=yp+y+ 
1980 i=0 
1990 i=i+l 

2000 IF i>joyas(rm) THEN 1510 

2010 IF joyax (rm, i ) Oxp OR j oyay (rm, i ) Oyp THEN 1990 
2020 IF i=joyas(rm) THEN 2050 
2030 joyax (rm, i ) = j oyax (rm, j oyas (rm) ) 
2040 joyay (rm, i ) = j oyay (rm, j oyas (rm) ) 
2050 j oyas (rm) =j oyas (rm) -1 : robado=robado + l 
2060 MOVE 400, 150+ (robado#2) , 1, l: DRAW 520, 150+ (robado*2> , 

1,1 
2070 SOUND 129,248,10,12,0,1 

2080 GOTO 1980 
2090 ruido=INT(RND*15) 
2100 SOUND 1,3000, 10, ruido, 0,0, 10 

2110 PAPER 0: LOCATE 15, 5: PRINT"Choque ";: PAPER 8 
2120 IF ruido<10 OR retardo=50 THEN 1630 
2130 retardo=retardo-50 
2140 aux=REMAIN(l) 

2150 AFTER retardo*4,l GOSUB 310 
2160 GOTO 1630 
?170 ' 
|^J^l^i*fl|^J«p.pu«rta» 
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2190 ' 

2200 READ no,pu$ 

2210 IF pu*="V" THEN pu=2 ELSE pu=l 

2220 PEN 2 

2230 pic*=puerta*<pu) : GOSUB 2500 

2240 GOTO 1280 

2250 ' 

2260 'Dibujar ventanas 

2270 ' 

2280 READ no,ve* 

2290 IF ve*="V" THEN ve=2 ELSE ve=l 

2300 PEN 4 

2310 pic*=vent*<ve) : GOSUB 2500 

2320 GOTO 1280 

2330 ' 

2340 'Dibujar rectas 

2350 ' 

2360 READ xl,yl,x2,y2 

2370 MOVE xl.yl, ,0 

2380 DRAW xl,y2, ,0:DRAW x2,y2,,0 

2390 DRAW x2,yl, ,0:DRAW xl,yl,,0 

2400 GOTO 1280 

2410 ' 

2420 'Dibujar i nter ruptores 

2430 ' 

2440 READ no,sw* 

2450 IF co*="L n THEN co=l ELSE co=2 

2460 PEN 3 

2470 pic*=conm*<co,0) : GOSUB 2500 

2480 GOTO 1280 

2490 ' 

2500 'Escribir car 

2510 ' 

2520 READ x,y:LOCATE x,y:PRINT pic*} 

2530 no=no-l IF riD>0 THEN 2520 

2540 RETURN 

2550 PEN lrLOCATE perrox , perroy:PRINT" " ; 

2560 hombre*=CHR*(225) 

2570 IF <perrox=xp AND perroy=yp) OR (perrox=xp + x-f AND pe 

rroy=yp+yf) THEN 2650 
2580 IF perrox<xp THEN perr ox=perrox+l 
2590 IF perrDX>xp THEN perrox=perrox-l 
2600 IF perroy<yp THEN perroy=perroy+l 
2610 IF perroy>yp THEN perroy=perroy-l 
2620 LOCATE perrox , perroy: PRINT perrD$i 
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2630 SOUND 1,0,RND*40, 10,1,2,31 

2640 GOTO 1510 

2650 PRINT"MORDIDO"5 

2660 muerto=l: RETURN 

2670 DATA Pasillo 

2680 DATA L, 64, 308, 226, 4 

2690 DATA D, 2, H, 6, 3, 6, 22 

2700 DATA D,2,V,4,12,9,11 

2710 DATA S, 1,L,4,11 

2720 DATA S,1,R,9,14 

2730 DATA FIN 

2740 DATA Sal a 

2750 DATA L, 2, 308, 258, 4 

2760 DATA D,1,V,10,12 

2770 DATA W, 1,H,6,3 

2780 DATA W, 1,V,2,12 

2790 DATA S, 2, R, 10, 1 1 , 10, 15 

2800 DATA FIN 

2810 DATA Comedor 

2820 DATA L, 2, 308, 258, 4 

2830 DATA W, 1,V, 10, 12 

2840 DATA W,1,H,6,3 

2850 DATA D, 1,V,2, 12 

2860 DATA S, 2, L, 2, 1 1 , 2, 15 

2870 DATA FIN 

2880 DATA Cocina 

2890 DATA L, 2, 276, 384, 4 

2900 DATA D, 2, H, 6, 5, 6, 22 

2910 DATA W, 1,H, 10,22 

2920 DATA W, 1,V, 14,13 

2930 DATA D, 1,V,2, 13 

2940 DATA S, 1,L,2,16 

2950 DATA FIN 

2960 DATA Despensa 

2970 DATA L, 2, 276, 256, 4 

2980 DATA D,1,V, 10,12 

2990 DATA S, 1,R,10, 11 

3000 DATA FIN 

3010 DATA 5,4,8,21,0,4,3,2 

3020 DATA 3,4,9,21,-1,-1,1,-1 

3030 DATA 3,4,9,21,-1,-1,-1,1 

3040 DATA 3,6,13,21,1,0,-1,5 

3050 DATA 3,6,9,21,-1,-1,4,-1 

3060 DATA L, 64, 308, 480, 100 

3070 DATA F, 250, 98, 294, 102 
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3080 DATA F, 250, 306, 294, 310 
3090 DATA D, 390, 94, 430, 106 



Si le han gustado estos juegos, quizd quiera hacerse miembro 
del Club de Usuarios Amstrad. Ademds de otros beneficios y 
privilegios, recibird una revista mensual gratuita en la que se 
incluyen listados de juegos y programas diversos, temas mo- 
nogrdficos, concursos e information de primera mano. 
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Gestion del espacio de trabajo (LOGO) 6.21 

Gestion de excepciones (LOGO) 6.28 

GLIST " 6^21 

GO 6.26 

GOSUB 1.31 3.30 7.27 

GOTO 1.24 3.31 

Grabacion en cinta 4.12 

Grabacion de variables 2.9 3.90 5.5 

Graficos 1.53 8.44 

Graficos de tortuga (LOGO) 6.18 

GRAPHICS PAPER 3.31 8.46 

GRAPHICS PEN 3.31 8.45 

GPROP 6.22 



Hardware 7.45 7.46 8.52 

HEX$ 3.32 

HIMEM 3.32 

HT 6.18 



IBM, formato 5.25 7.45 

IF 1.29 3.33 

IF (LOGO) 6.29 

Impresoras 1.8 7.41 7.42 7.43 

INK 1.48 3.33 7.6 

INKEY 3.34 7.43 

INKEYS 2.12 3.35 7.43 

INP 3.35 

INPUT 1.25 2.2 3.36 7.28 

INPUT (cassette) 4.11 

Inserci6n de discos 1.11 

Instalaci6n 1 i 

INSTR '.ZZZZZZZ'2'53.36 

INT 3 37 

INT (LOGO) Z 6 .'i0 

Interruption de las funciones del disco 1.76 

Interruptions 7.7 8.27 

I/O 7.38 7.46 

ITEM 6.9 
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JOY 3.37 7.43 

Joystick, instrucciones (LOGO) 6.23 

Joysticks 1.7 7.21 7.23 7.43 

JOYSTICK, zocalo 1.7 7.38 



KEY 3.38 7.22 

KEY DEF 3.39 7.22 7.43 

KEYP 6.23 



LABEL 6.27 

LEFT$ 3.39 

LEN 2.8 3.40 

LET 3.40 

LINE INPUT 3.40 

LINE INPUT (cassette) 4.11 

LIST 1.24 3.41 

LIST (LOGO) 6.9 

Listas 2.3 3.18 3.26 7.28 

Listas de propiedades (LOGO) 6.21 

LOAD 1.43 3.42 

LOAD (cassette) 4.9 

LOAD (LOGO) 6.23 

LOCAL 6.13 

LOCATE 1.54 3.42 7.6 

LOG 3.42 

LOG10 3.43 

Logica 8.17 

LOGO 6.1 

LST 5.20 

LT 6.18 

LOWERS 3.43 



MAKE 6.13 

MASK 3.43 8.49 

MAX 3.44 

Memoria, mapa 7.45 

MEMORY 3.44 7.27 
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Mensajes de error 7.27 

Mensajes de error (AMSDOS) 5.14 7.31 7.32 

Menu 2.5 3.51 3.52 

MERGE 3.45 

MERGE (cassette) 4.9 

MID$ 3.46 

MIN 3.46 

MOD 1.35 3.46 

MODE 1.46 3.47 7.3 

Modos de tinta 7.5 8.48 

Modulador/fuente de alimentation (MP2) 1.3 1.5 1.65 

Monitor 1.2 

MONITOR, zocalo 1.2 1.3 7.39 

MOVCPM 5.26 

MOVE I.57 3.47 

MOVER 3*48 



NEW 3.48 

NEXT 1.30 3.49 7.27 7.30 8.14 

NODES ; 6.6 6.21 

Nombres de ficheros 1.42 5.2 5.3 5.18 

NOT 3.49 8.19 

NOT (LOGO) 6.12 

Notas musicales 7.24 

Numeros aleatorios 3.70 

Niimeros binarios 8.8 

Numeros de los errores 7.27 

Numeros hexadecimales 8.10 



ON BREAK CONT 3.50 

ON BREAK GOSUB 3.50 

ON BREAK STOP 3.50 

ON ERROR GOTO 3.51 7.29 7.32 

ON GOSUB 2.10 3.51 

ON GOTO 3.52 

ON, piloto 1.4 1.5 

ON SQ GOSUB 3.53 7.7 8.41 

OP 6.27 

OPENIN 2.10 3.53 7.29 7.30 

OPENIN (cassette) 4.11 

OPENOUT 2.9 3.54 7.30 

OPENOUT (cassette) 4.11 
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Operaciones aritmeticas 1.33 7.27 7.28 

Operaciones aritmeticas (LOGO) 6.10 

Operaciones combinadas 1.46 

Operaciones logicas 6.11 

Operadores 1-33 8.17 

OR 3.54 8.17 

OR (LOGO) 6.12 

Ordenes de consola 5.18 

Ordenes externas 5.7 7.30 

ORIGIN 1.59 3.55 

OUT 3.55 



PADDLE 6.24 

PAL 6.16 

Palabras clave 1.22 3.1 7.32 

Pantalla grafica (LOGO) 6.15 

Pantalla de texto (LOGO) 6.14 

PAPER 1.47 3.56 7.4 

PAUSE 6.28 

PD ' 6.18 

PE 6.19 

PEEK 3.56 

PEN 1.48 3.57 7.15 

Perifericos 1.7 

PI • 3.57 

Piloto (de la unidad de disco) 114 

PIP 5.20 

Plantillas 7.34 7.35 7.36 7.37 

PLIST 6.22 

PLOT 1.56 3.57 

PLOTR 3.58 

PO 6.13 

POKE 3.59 

POS 3.59 4.10 

Potentiation 136 1.37 

POTS : 6.14 

POWER, interruptor 1.4 1.5 

PPROP 6.22 

PR 6.14 

Primitivas 6.7 

Primitivas del sistema (LOGO) 6.29 

PRINT 1.23 3.60 8.21 

PRINT SPC 3.60 8.22 

PRINT TAB 3.60 8.22 
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PRINT USING 3.61 8.22 

PRINTER, zocalo 1.8 7.41 

.PRM 6.30 

Procedimientos 6.3 6.13 
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Programas Have en mano 4.3 4.4 

Protecci6n contra escritura 1.12 

PU 6.19 

PUN 5.20 

PX 6.19 



RAD 3.64 

Raiz cuadrada 1.35 3.78 

Raiz cubica 1.36 

RANDOM 6.10 

RANDOMIZE 3.64 

RC 6.24 

RDR 5.20 

READ 3.64 7.27 7.28 8.29 

Reconocimiento de discos 5.17 

Rectas de puntos y trazos 3.44 8.45 

RECYCLE 6.6 6.21 

REDEFP 6.29 

Reinitialization del ordenador 1.20 1.21 

RELEASE 3.65 8.35 

RELEASE (LOGO) 6.26 

REM 1.31 2.2 3.65 

REMAIN 3.66 8.29 

REMPROP 6.22 

REN 5.19 

|REN 5.9 

RENUM 3.66 

REPEAT 6.27 

RESTORE 3.67 8.31 

RESUME 3.68 7.29 

RESUME NEXT 3.68 

Retention de los canales de sonido 3.73 8.35 

RETURN 1.31 3.69 7.27 

RIGHTS 3.69 

RL 6.24 

RND 3.70 

RQ 6.25 

ROINTIME.DEM, programa 1.20 

ROUND 3.70 
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RUN 1.23 1.43 3.71 

RUN (cassette) 4.9 

RUN (LOGO) 6.27 



SAVE 1.42 1.44 3.71 

SAVE (cassette) 4.13 

SAVE(CP/M) 5.18 

SAVE (LOGO) 6.23 

SE 6.9 

Sector de configuration 5.17 

Segunda mitad de disco, zocalo 1.9 7.40 

SETH 6.19 

SETPAL 6.16 

SETPC 6.20 

SETPOS 6.20 

SETSPLIT 6.15 

SETUP 5.24 

SF 6.17 

SGN 3.72 

SHIFT, teclas 1.15 

SHOW 6.15 

Simbolos comodin 5.4 

SIN 3.73 

SIN (LOGO) 6.10 

Sincronizacion de canales 3.73 8.34 

Sintetizador de voz 1.10 

Software 1.20 

Sonido(LOGO) 6.25 

SOUND 1.65 3.73 7.24 8.33 

SOUND (LOGO) 6.25 

SPACES 3.75 

SPC 3.75 8.22 

SPEED INK 3.75 

SPEED KEY 3.76 

SPEED WRITE 3.77 4.13 

Sprites 8.50 

SQ 3.77 8.42 

SQR 1.35 3.78 

SS 6.17 

ST 6.20 

STAT 5.23 

STEP 3.78 

STEREO, zocalo 1.9 1.65 7.39 
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STOP 3.78 

STOP (LOGO) 6.27 

STR$ 3.79 

STRINGS 3.79 

SUBMIT 5.27 

Suma de verificaci6n 8.30 

SWAP ; 3.79 

SYMBOL 3.80 7.5 8.20 

SYMBOL AFTER 3.82 

Syntax error 1.18 7.27 

SYSGEN 5.26 



TAB 3.82 8.22 

TAG 3.82 8.47 

TAGOFF 3.83 8.47 

TAN 3.83 

|TAPE 1.73 5.9 

JTAPE.IN 1.73 5.10 

JTAPE.OUT 1.73 5.10 

TAPE, zdcalo 1.7 7.39 

Teclado 1.15 7.21 7.22 7.23 7.43 

Teclas defiaibles por el usuario 3.38 7.21 7.22 7.23 

Televisor 1.3 1.5 

TEST 3.84 

TESTR 3.84 

TF 6.20 

THEN 1.29 3.85 

THROW 6.28 

TIME 3.85 

Tipos de ficheros 5.2 

TO 3.85 

TO (LOGO) 6.14 

TOPLEVEL 6.29 

TROFF 3.85 

TRON 3.85 

TRUE 6.30 

TS 6.15 

TYPE(CP/M) 5.20 

TYPE (LOGO) 6.15 



UNT : 3.86 

UPPERS 3.86 
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|USER 5.10 

USING 3.87 8.23 



VAL 3.87 

Variables 1.26 7.32 8.14 

Variables (LOGO) 6.4 6.13 

Variables, grabacidn de 2.9 3.90 5.5 

Variables literales 1.26 7.28 

Variables del sistema (LOGO) 6.29 

Vibrato 8.38 

Volcado de pantalla 1.45 3.72 5.5 

VOLUME, control 1.9 1.65 

VPOS 3.87 



WAIT 3.88 

WAIT (LOGO) 6.28 

WEND 3.88 7.30 

WHILE 3.88 7.27 7.30 

WIDTH 3.89 

WINDOW 2.11 3.89 7.5 8.25 

WINDOW (LOGO) 6.17 

WINDOW SWAP 3.90 8.26 

WORD 6.9 

WORDP 6.10 

WRAP 6.17 

WRITE 2.9 3.90 8.22 

X 

XOR 3.91 8.19 

XPOS 3.92 

XSUB 5.27 

Y 

YPOS 3.92 

Z 

Zocalos de corriente continua 1.2 1.3 

ZONE 3.92 8.21 
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MANUAL DEL USUARIO AMSTRAD CPC-664 
FE DE ERRATAS 



Pagina 1 , h'nea 5: 
Dice: ... sistema informatico CPC 464 
Debe decir: ... sistema informatico CPC 664 

Pagina 1, linea 7: 
Dice: ... CPC 464 
Debe decir: ...CPC 664 

Pagina 1/65, h'nea 5: 
Dice ... cara 
Debe decir ...lateral 

Pagina 3, lineas 5-8: 
Debe decir: Espana, Avda. Mediterraneo, 9. 28007 Madrid 

Pagina 3/4, linea 17: 
Dice: ...el (que es lo prescrito) 

Debe entenderse: el valor que se toma por defecto si no 
hay otro. 

Pagina 3/10, lineas 1-2: 
Dice: ...tampon... 

Debe entenderse: zona de memoria auxiliar (para entrada 
de datos del teclado) 

Pagina 3/10, linea 17: 
Dice: en direction de entrada 
Debe entenderse: para lectura 

Linea 23: 
Dice: en direction de salida 
Debe entenderse: para escritura 

Pagina 3/14, linea 12: 
Dice: parametros de forma 
Debe decir: parametros de definition 

Pagina 3/15, lineas 2, 14, 18, 26: 
Dice: ... margen... 
Debe entenderse: rango 

Pagina 3/16, lineas 2, 14: id. 

Linea 10: 
Dice: variable literal 
Debe entenderse: variable tipo cadena de caracteres 

Pagina 3/18, linea 10: 
Dice: EL 
Debe decir: El (Enable Interrupt) 

Linea 22: 
Dice: ... DIM lista de : variable 
Debe entenderse: 

DIM variable ( subindice superior 1 [subindice2 ,..]),. 



Li'nea 35: 

Dice: ... listas... 

Debe entenderse: cadenas de caracteres, formaciones de 
caracteres, "arrays", formaciones, matrices, etc. 
Pagina 3/19: 

Dice: ... lista... 

Debe decir: ...formacion (para caracteres), 
matriz (para numeros) 
Pagina 3/30, linea 16: 

Dice:/— / 

Debe decir: f= 1 

Pagina 4/10: 
Donde dice: ATENCION, programas del modelo CPC 464 que 

no funcionaran correctamenteen el CPC 664... 
Debe entenderse que no funcionaran o no funcionaran 
correctamente. Vease el Anexo a esta lista de errores, 
donde aparecen algunos de los que no funcionan. 
Pagina 5/24, linea 23: 
Dice: Initial Command Buffer (Tampon de orden inicial) 
Debe entenderse: Memoria de orden inicial (memoria de 
instruccion a ejecutar en el arranque) 
Pagina 7/28, linea 7: 
Dice: ... tampon... 

Debe decir: ... una pequeha area de memoria... 
Pagina 7/38: 
En el Joystick o bastoncillo, debe decir: 
Patilla 8 = Masa Bastoncillo 1 
Patilla 9 = Masa Bastoncillo 2 

Pagina 7/39: 
La tabla de conexiones de Zocalo de Cinta y Zocalo Estereo 
estan intercambiadas. 

En el Zocalo Estereo, donde dice MASA, hay que leer Canal 
Derecho, Canal izquierdo, para que corresponda con 
la hembra. 

Pagina 7/45, penultima linea: 
Anadir: Vease la pagina 8/52 

Pagina 8/25, linea 11: 
Dice: ... fila y columna... 
Debe decir: ... columna y fila... 

Pagina A 1/3, linea 6: 
Dice:... CONTRATO... 
Debe decir: ... PROGRAMA... 



Pagina A 3/28: 
Hace referenda al Club de Usuarios, y debe entenderse 
Revista mensual de Usuarios Amstrad, que aparecera 
proximamente. 



ANEXO GENERAL 

Indescomp, S.A. garantiza el soporte del programa durante 
noventa dias a partir de la fecha de compra contra todo defecto 
de fabricacion, con exclusion total de cualquier otra garantia 
o responsabilidad. 



COPIAS Y MODIFICACIONES 

Este programa, asi como su documentacion, estan protegidos 
por los Derechos de Autor y Copyright, y por tanto cualquier 
copia del mismo que no obedezca a motivos de salvaguarda 
del propio programa, asi como su modificacion, es ilegal. 



LISTA DE ALGUNOS PROGRAMAS 

DE AMSTRAD CPC 464 QUE NO FUNCIONAN 

EN CPC 664 

— SOCERY for the Amstrad CPC 464 

— AMSCALC Hoja de Calculo 

En caso de duda, consulte a su Distribuidor, en el momento de 
su compra. 
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